home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Meeting Pearls 4
/
Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso
/
Pearls
/
dev
/
Language
/
CLisp
/
compiler.fas
< prev
next >
Wrap
Text File
|
1996-08-06
|
314KB
|
5,765 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(COMPILER COMPILE COMPILE-FILE DISASSEMBLE)
)
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D8 6A 01 37 03 30 BB 0F 01 19 01)
COMPILER *FEATURES*
)
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "COMPILER")
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 37 01 30 DC 19 01)
(FUNCTION-NAME-P PARSE-BODY MAKE-LOAD-TIME-EVAL CLOSURE-NAME CLOSURE-CODEVEC
CLOSURE-CONSTS FIXNUMP SHORT-FLOAT-P SINGLE-FLOAT-P DOUBLE-FLOAT-P
LONG-FLOAT-P SEARCH-FILE DATE-FORMAT LINE-NUMBER %FUNTABREF INLINABLE
*COMPILING* *COMPILING-FROM-FILE* *INLINE-FUNCTIONS* *VENV* *FENV* *BENV*
*GENV* *DENV* *TOPLEVEL-DENV* C-PROCLAIM C-PROCLAIM-CONSTANT C-DEFUN
C-PROVIDE C-REQUIRE
))
#Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D8 37 01 30 DC 19 01)
(VERSION SUBR-INFO)
)
#Y(#:TOP-LEVEL-FORM-7
#31Y(00 00 00 00 00 01 D8 70 CF D9 8C 61 0B AA D9 70 51 8D 03 04 D9 DA 2F 03
D9 AB 31 83 C4 19 02
)
#1="KEYWORD" *KEYWORD-PACKAGE*
(DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1#)) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-8
#31Y(00 00 00 00 00 01 D8 70 CF D9 8C 61 0B AA D9 70 51 8D 03 04 D9 DA 2F 03
D9 AB 31 83 C4 19 02
)
#1="LISP" *LISP-PACKAGE* (DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1#))
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-9
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COMPILING*) *COMPILING*
)
#Y(#:TOP-LEVEL-FORM-10
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 63 30 55 C4 19 01)
(SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
)
#Y(#:TOP-LEVEL-FORM-11
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 63 30 55 C4 19 01)
(SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
)
#Y(#:TOP-LEVEL-FORM-12
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COMPILE-PRINT*) *COMPILE-PRINT*
)
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *COMPILING-FROM-FILE*) *COMPILING-FROM-FILE*
)
#Y(#:TOP-LEVEL-FORM-14
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COMPILE-FILE-PATHNAME*) *COMPILE-FILE-PATHNAME*
)
#Y(#:TOP-LEVEL-FORM-15
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COMPILE-FILE-TRUENAME*) *COMPILE-FILE-TRUENAME*
)
#Y(#:TOP-LEVEL-FORM-16
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COMPILE-FILE-LINENO1*) *COMPILE-FILE-LINENO1*
)
#Y(#:TOP-LEVEL-FORM-17
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COMPILE-FILE-LINENO2*) *COMPILE-FILE-LINENO2*
)
#Y(#:TOP-LEVEL-FORM-18 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *C-LISTING-OUTPUT*) *C-LISTING-OUTPUT*
)
#Y(#:TOP-LEVEL-FORM-19 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *C-ERROR-OUTPUT*) *C-ERROR-OUTPUT*
)
#Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *KNOWN-SPECIAL-VARS*) *KNOWN-SPECIAL-VARS*
)
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CONSTANT-SPECIAL-VARS*) *CONSTANT-SPECIAL-VARS*
)
#Y(#:TOP-LEVEL-FORM-22
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *FASOUTPUT-STREAM*) *FASOUTPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-23
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-24
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COUTPUT-FILE*) *COUTPUT-FILE*
)
#Y(#:TOP-LEVEL-FORM-25
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *COUTPUT-STREAM*) *COUTPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-26
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
)
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *KNOWN-FUNCTIONS*) *KNOWN-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *UNKNOWN-FUNCTIONS*) *UNKNOWN-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *UNKNOWN-FREE-VARS*) *UNKNOWN-FREE-VARS*
)
#Y(#:TOP-LEVEL-FORM-30 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *INLINE-FUNCTIONS*) *INLINE-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-31 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *NOTINLINE-FUNCTIONS*) *NOTINLINE-FUNCTIONS*
)
#Y(#:TOP-LEVEL-FORM-32 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *INLINE-DEFINITIONS*) *INLINE-DEFINITIONS*
)
#Y(#:TOP-LEVEL-FORM-33 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *USER-DECLARATION-TYPES*) *USER-DECLARATION-TYPES*
)
#Y(#:TOP-LEVEL-FORM-34 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *COMPILED-MODULES*) *COMPILED-MODULES*
)
#Y(#:TOP-LEVEL-FORM-35 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *PACKAGE-TASKS*) *PACKAGE-TASKS*
)
#Y(#:TOP-LEVEL-FORM-36
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *FFI-MODULE*) *FFI-MODULE*
)
#Y(#:TOP-LEVEL-FORM-37-1
#20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 3D 19 01)
%RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-37-2
#22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 3D 19 01)
CLOSURE-NAME SETF-EXPANDER -1.
#Y(SETF-CLOSURE-NAME
#17Y(00 02 00 00 00 03 9D 5B 77 D8 AB D9 AF 60 04 19 04) %RECORD-STORE 0.
)
SETF %SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-37-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(MAKE-CLOSURE
#25Y(00 00 00 00 80 1B 00 03 00 00 3C 03 3C 02 3C 01 AD AD 71 39 AD 31 3A
19 04
)
:NAME :CODEVEC :CONSTS
) )
#Y(#:TOP-LEVEL-FORM-38
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
INSTRUCTION-TABLE
#1=#((NIL O) (PUSH-NIL N) (T O) (CONST K) (LOAD K) (LOADI NN) (LOADC NN)
(LOADV NN) (LOADIC NNN) (STORE K) (STOREI NN) (STOREC NN) (STOREV NN)
(STOREIC NNN) (GETVALUE N) (SETVALUE N) (BIND N) (UNBIND1 O) (UNBIND N)
(PROGV O) (PUSH O) (POP O) (SKIP N) (SKIPI NN) (SKIPSP N) (SKIP&RET N)
(JMP L) (JMPIF L) (JMPIFNOT L) (JMPIF1 L) (JMPIFNOT1 L) (JMPIFATOM L)
(JMPIFCONSP L) (JMPIFEQ L) (JMPIFNOTEQ L) (JMPIFEQTO NL)
(JMPIFNOTEQTO NL) (JMPHASH NHL) (JMPHASHV NHL) (JSR L) (JMPTAIL NNL)
(VENV O) (MAKE-VECTOR1&PUSH N) (COPY-CLOSURE NN) (CALL NN) (CALL0 N)
(CALL1 N) (CALL2 N) (CALLS1 B) (CALLS2 B) (CALLSR NB) (CALLC O)
(CALLCKEY O) (FUNCALL N) (APPLY N) (PUSH-UNBOUND N) (UNLIST NN)
(UNLIST* NN) (JMPIFBOUNDP NL) (BOUNDP N) (UNBOUND->NIL N) (VALUES0 O)
(VALUES1 O) (STACK-TO-MV N) (MV-TO-STACK O) (NV-TO-STACK N)
(MV-TO-LIST O) (LIST-TO-MV O) (MVCALLP O) (MVCALL O) (BLOCK-OPEN NL)
(BLOCK-CLOSE O) (RETURN-FROM N) (RETURN-FROM-I NN) (TAGBODY-OPEN NLX)
(TAGBODY-CLOSE-NIL O) (TAGBODY-CLOSE O) (GO NN) (GO-I NNN)
(CATCH-OPEN L) (CATCH-CLOSE O) (THROW O) (UNWIND-PROTECT-OPEN L)
(UNWIND-PROTECT-NORMAL-EXIT O) (UNWIND-PROTECT-CLOSE O)
(UNWIND-PROTECT-CLEANUP O) (HANDLER-OPEN NC) (HANDLER-BEGIN&PUSH O)
(NOT O) (EQ O) (CAR O) (CDR O) (CONS O) (SYMBOL-FUNCTION O) (SVREF O)
(SVSET O) (LIST N) (LIST* N) (NIL&PUSH O) (T&PUSH O) (CONST&PUSH K)
(LOAD&PUSH K) (LOADI&PUSH NN) (LOADC&PUSH NN) (LOADV&PUSH NN)
(POP&STORE N) (GETVALUE&PUSH N) (JSR&PUSH L) (COPY-CLOSURE&PUSH NN)
(CALL&PUSH NN) (CALL1&PUSH N) (CALL2&PUSH N) (CALLS1&PUSH B)
(CALLS2&PUSH B) (CALLSR&PUSH NB) (CALLC&PUSH O) (CALLCKEY&PUSH O)
(FUNCALL&PUSH N) (APPLY&PUSH N) (CAR&PUSH O) (CDR&PUSH O) (CONS&PUSH O)
(LIST&PUSH N) (LIST*&PUSH N) (NIL&STORE N) (T&STORE N)
(LOAD&STOREC NNN) (CALLS1&STORE BN) (CALLS2&STORE BN)
(CALLSR&STORE NBN) (LOAD&CDR&STORE N) (LOAD&CONS&STORE N)
(LOAD&INC&STORE N) (LOAD&DEC&STORE N) (LOAD&CAR&STORE NN)
(CALL1&JMPIF NL) (CALL1&JMPIFNOT NL) (CALL2&JMPIF NL)
(CALL2&JMPIFNOT NL) (CALLS1&JMPIF BL) (CALLS1&JMPIFNOT BL)
(CALLS2&JMPIF BL) (CALLS2&JMPIFNOT BL) (CALLSR&JMPIF NBL)
(CALLSR&JMPIFNOT NBL) (LOAD&JMPIF NL) (LOAD&JMPIFNOT NL)
(LOAD&CAR&PUSH N) (LOAD&CDR&PUSH N) (LOAD&INC&PUSH N) (LOAD&DEC&PUSH N)
(CONST&SYMBOL-FUNCTION N) (CONST&SYMBOL-FUNCTION&PUSH N)
(CONST&SYMBOL-FUNCTION&STORE NN) (APPLY&SKIP&RET NN)
)
(DEFCONSTANT INSTRUCTION-TABLE '#1#) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-39
#34Y(00 00 00 00 00 01 D8 D9 71 48 1A 0D D9 9D 5E 77 AA DA AE 31 88 16 01 84
01 AB AB 90 01 32 6D 00 19 03
)
0. #.INSTRUCTION-TABLE INSTRUCTION
)
#Y(#:TOP-LEVEL-FORM-40
#61Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 DA 71 48 1A 0D DA 9D 5E 77 AA AE
AE 30 68 16 01 84 01 AB AB 90 01 32 6D 16 02 DB 8C 61 0B AA DB 70 51 8D
03 04 DB DC 2F 05 DB AB 31 83 C6 19 02
)
#.#'EQ 0. #.INSTRUCTION-TABLE INSTRUCTION-CODES
(DEFCONSTANT INSTRUCTION-CODES
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(DOTIMES (I (LENGTH INSTRUCTION-TABLE))
(SETF (GETHASH (FIRST (SVREF INSTRUCTION-TABLE I)) HASHTABLE) I)
)
HASHTABLE
) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-41
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
INSTRUCTION-TABLE-K #1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)
(DEFCONSTANT INSTRUCTION-TABLE-K '#1#) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-42
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
SHORT-CODE-BASE 155. (DEFCONSTANT SHORT-CODE-BASE 155.) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-43
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
SHORT-CODE-OPSIZE #1=#(15. 25. 21. 30. 10.)
(DEFCONSTANT SHORT-CODE-OPSIZE '#1#) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-44
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
SHORT-CODE-OPS #1=#(155. 170. 195. 216. 246.)
(DEFCONSTANT SHORT-CODE-OPS '#1#) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-45
#60Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 1A 0F AA 70 00 92 00 05 14 AD AD
30 68 16 01 84 00 AA DA 90 01 32 6B 16 01 DB 8C 61 0B AA DB 70 51 8D 03
04 DB DC 2F 05 DB AB 31 83 C6 19 02
)
#.#'EQ 0. 768. FUNCTION-CODES
(DEFCONSTANT FUNCTION-CODES
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(DOTIMES (I (* 3. 256.))
(LET ((SYM (%FUNTABREF I)))
(WHEN SYM (SETF (GETHASH SYM HASHTABLE) I))
) )
HASHTABLE
) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-46
#61Y(00 00 00 00 00 01 D8 1A 14 A0 16 06 1A 18 AA 70 00 AA 30 01 41 04 91 00
70 16 05 84 00 AA D9 90 01 32 6B 00 16 01 14 DA 8C 61 0B AA DA 70 51 8D
03 04 DA DB 2F 04 DA AB 31 83 C5 19 02
)
0. 768. FUNTABR-INDEX
(DEFCONSTANT FUNTABR-INDEX
(DOTIMES (I (* 3. 256.))
(LET ((SYM (%FUNTABREF I)))
(MULTIPLE-VALUE-BIND (NAME REQ OPT REST-P) (SUBR-INFO SYM)
(DECLARE (IGNORE NAME REQ OPT)) (WHEN REST-P (RETURN I))
) ) ) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CALLS-CODE REMOVE-OLD-DEFINITIONS
#Y(CALLS-CODE
#27Y(00 01 00 00 00 02 AB D8 8F 01 2F 0B DA DB AD 32 02 35 14 60 02 19 02
D9 9D 1A 77
)
256. CALLS1 CALLS2 -256.
) )
#Y(#:TOP-LEVEL-FORM-48
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) MEMQ
REMOVE-OLD-DEFINITIONS MACRO
#Y(MEMQ
#54Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 19 9D 5B 77 9E 5B 5B 77 AA 8C
61 06 AA 70 5E 8D 0D 0D DD AC AC C9 61 03 19 05 AC 2E 01 19 03 DA AC
AC 70 5E C6 79 C7 1A 6D
)
3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
) )
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILER-ERROR REMOVE-OLD-DEFINITIONS
#Y(COMPILER-ERROR
#19Y(00 01 00 01 00 08 3C 01 D8 D9 DA 6D 03 03 AD AD 32 02 1E)
"Compiler bug!! Occurred in ~A~@[ at ~A~]."
"Fehler im Compiler!! Aufgetreten in ~A~@[ bei ~A~]."
"Erreur dans le compilateur!! Arrivé dans ~A~@[ au point ~A~]." LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-50 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *STACKZ*) *STACKZ*
)
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STACKZ-FUN REMOVE-OLD-DEFINITIONS
#Y(STACKZ-FUN
#20Y(00 01 00 00 00 02 9C 1F 08 AB 37 01 30 A0 5B 19 02 9C 19 02)
) )
#Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
IN-SAME-FUNCTION-P REMOVE-OLD-DEFINITIONS
#Y(IN-SAME-FUNCTION-P #15Y(00 02 00 00 00 03 AC 6E 00 AC 2E 00 59 19 03)
STACKZ-FUN
) )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ZUGRIFF-IN-STACK REMOVE-OLD-DEFINITIONS
#Y(ZUGRIFF-IN-STACK
#249Y(00 02 00 00 00 03 62 D8 D8 AF A0 21 80 CD A0 20 04 D9 DA 2F 03 93
05 AA 8D 0E 28 9B 1F 3F 93 00 AA 23 04 24 AA 24 06 2C AC 6A 07 71
97 81 02 35 02 AD E0 9E 5B 77 32 02 35 14 81 02 35 03 16 01 1A 80
91 AC 9C 1A 80 69 AD DD 9E 5B 77 72 02 37 31 97 1A 65 D9 E1 2F 03
16 01 1A 80 77 9B 25 0A 80 6E 14 AC 32 02 35 1A 04 91 03 76 9C F9
CE F7 C3 F8 1A 80 5F AB DD 6A 07 72 02 35 81 02 35 01 CB 1A 2C AB
DD 6A 07 72 02 35 81 02 35 01 C8 1A 1E 14 AC 32 02 35 1A 04 91 03
76 9C F9 CB F7 C3 F8 1A 31 AB DD 6A 07 72 02 35 81 02 35 01 CB 14
9E 14 81 02 35 02 1A 1C 84 01 84 02 1A 16 14 AC 32 02 35 1A 04 91
03 76 9C F9 CE F7 C3 F8 1A 04 D9 E4 2F 03 16 01 82 05 1A FF 2E 9F
1F 15 93 04 23 0D 0A 9F 5A 1F 0C 9F 5A 77 24 06 06 DD AC 81 02 35
01 AC AC 3F 02 19 06
)
0. ZUGRIFF-IN-STACK "STACKZ-END" COMPILER-ERROR BIND 2. TAGBODY
*JMPBUF-SIZE* 3. "STACKZ-LISTITEM"
#S(HASH-TABLE EQ (ANYTHING . 101.) (MVCALL . 101.) (MVCALLP . 88.)
(BLOCK . 67.) (CLEANUP . 56.) (UNWIND-PROTECT . 35.) (CATCH . 21.)
(PROGV . 9.)
)
1. "STACKZ-ITEM" BLOCK
) )
#Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAY-UNWIND REMOVE-OLD-DEFINITIONS
#Y(MAY-UNWIND
#32Y(00 02 00 00 00 03 AC 9D 21 10 9D 20 04 D8 D9 2F 02 93 02 23 03 07 82
02 1A 6C 02 19 03 00 19 03
)
MAY-UNWIND "STACKZ-END" COMPILER-ERROR ANYTHING
) )
#Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EXPAND-UNWIND REMOVE-OLD-DEFINITIONS
#Y(EXPAND-UNWIND
#279Y(00 03 00 00 00 04 00 2A 04 00 0B 00 00 C3 0B 00 01 0B 00 02 00 0B
00 03 AA 6C 01 01 AF A0 21 80 ED A0 20 04 DA DB 2F 04 93 05 AA 8D
0E 1D 9B 1F 2E 93 00 AA 23 05 1A AA 24 07 1B 9D 33 CB 14 06 04 03
5C 0B 03 03 16 01 1A 80 BC 67 02 01 9C 1A 37 9D 33 C9 1A 68 DA E1
2F 04 16 01 1A 80 A8 9B 25 0A 80 9F 9C 33 E3 06 03 03 5C 0B 02 03
CF 0B 02 02 1A 80 92 67 02 02 E5 6A 0E 72 02 35 32 02 35 0B 02 02
E7 06 03 01 14 32 02 35 0B 02 01 1A 80 75 7D 04 E8 06 03 03 5C 0B
02 03 D4 1A 2A 9C 33 92 04 6E D4 1A 22 14 67 03 02 32 02 35 1A 08
06 02 00 1B 72 06 02 02 0B 02 00 D2 0B 02 02 C3 0B 02 01 1A 80 41
9C 33 D5 14 06 03 03 5C 0B 02 03 1A 34 67 02 02 31 97 0B 02 02 67
02 01 31 97 0B 02 01 1A 22 14 67 03 02 32 02 35 1A 08 06 02 00 1B
72 06 02 02 0B 02 00 CF 0B 02 02 C3 0B 02 01 1A 04 DA EB 2F 04 16
01 82 05 1A FF 0E 9B 33 67 01 03 31 4A 19 06
)
0.
#Y(EXPAND-UNWIND-HERE
#112Y(00 00 00 00 00 01 07 00 01 1B 38 68 00 02 DA 90 01 30 0D E0 68
00 02 7A 02 07 00 04 5C 0C 00 04 68 00 03 DA 90 01 30 0E DF 07
00 03 14 7A 02 07 00 04 5C 0C 00 04 00 0C 00 01 C5 0C 00 02 0C
00 03 19 01 D9 68 00 01 68 00 02 7A 03 07 00 04 5C 0C 00 04 68
00 03 DA 90 01 31 04 DB DC 2F 05 68 00 03 DE 90 01 30 4F DF 68
00 03 31 98 1A FF BC
)
NIL SKIPI 0. EXPAND-UNWIND "SP-depth" COMPILER-ERROR 1. SKIPSP SKIP
)
EXPAND-UNWIND "STACKZ-END" COMPILER-ERROR BIND (UNBIND1) TAGBODY
(TAGBODY-CLOSE) "STACKZ-LISTITEM"
#S(HASH-TABLE EQ (MVCALL . 140.) (MVCALLP . 113.) (BLOCK . 100.)
(CLEANUP . 78.) (UNWIND-PROTECT . 61.) (CATCH . 19.) (PROGV . 2.)
)
(UNBIND1) 1. 2. *JMPBUF-SIZE* 3. (VALUES0) (UNWIND-PROTECT-CLEANUP)
(BLOCK-CLOSE) "STACKZ-ITEM"
) )
#Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SPDEPTH-DIFFERENCE REMOVE-OLD-DEFINITIONS
#Y(SPDEPTH-DIFFERENCE
#79Y(00 02 00 00 00 03 D8 1A 3F AC 6A 05 71 97 81 02 35 02 16 01 1A 2E 93
00 AA 23 04 6D 16 01 1A 24 9E 20 04 D9 DA 2F 03 93 03 9B 20 6A 9B 25
06 14 84 01 1A 10 AB DF 6A 05 32 02 35 1A 02 E0 9D 14 81 02 35 01 16
01 82 03 AD 9E 22 54 15 19 03
)
0. SPDEPTH-DIFFERENCE "STACKZ-END" COMPILER-ERROR TAGBODY *JMPBUF-SIZE*
#S(HASH-TABLE EQ (CLEANUP . 14.) (BLOCK . 5.) (UNWIND-PROTECT . 5.)
(CATCH . 5.) (ANYTHING . 1.) (MVCALL . 1.) (MVCALLP . 1.) (PROGV . 1.)
)
2. 3.
) )
#Y(#:TOP-LEVEL-FORM-57 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *FENV*) *FENV*
)
#Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(FENV-SEARCH
#107Y(00 01 00 01 00 08 3A 01 1C 0E 00 F7 91 01 19 00 19 03 DC 94 01 3F
02 19 06 93 00 23 04 74 DD 94 01 9D 5A 1A 2C 92 01 67 AB 8D 26 03
D9 2E 02 AB 71 48 71 98 DB AA AC 8F 01 2D 23 AE AE 9D 5E 14 8E 04
13 AD AB 31 97 5E 14 9B 20 4D DE AF AD 31 97 14 3F 03 19 06 DF AB
81 02 35 00 1A 57 AD 9C 5E F9 16 02 92 01 FF A7 1A FF BD
)
*FENV* FENV-SEARCH COMPILER-ERROR 0. MACRO LOCAL GLOBAL 2.
) )
#Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
#Y(GLOBAL-IN-FENV-P #13Y(00 02 00 00 00 03 AC AC 2F 00 58 19 03) FENV-SEARCH
) )
#Y(#:TOP-LEVEL-FORM-60 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *BENV*) *BENV*
)
#Y(#:TOP-LEVEL-FORM-61
#292Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
31 88 64 28 64 2A 31 82 E7 64 2B 64 2C 03 2D 79 31 88 E7 64 2E 62 2C
03 2F EC 64 2B 64 2C 03 30 79 31 88 EC 64 2E 62 2C 03 2F F1 64 2B 64
2C 03 31 79 31 88 F1 64 2E 62 2C 03 2F 64 1E 64 2B 64 2C 03 32 79 31
88 64 1E 64 2E 62 2C 03 2F 64 23 64 2B 64 2C 03 33 79 31 88 64 23 64
2E 62 2C 03 2F 64 28 64 2B 64 2C 03 34 79 31 88 64 28 64 2E 62 2C 03
2F DB 64 35 62 2C 03 2F DB 64 36 31 89 C6 19 01
)
MAKE-BLOCK REMOVE-OLD-DEFINITIONS
#Y(MAKE-BLOCK
#65Y(00 00 00 00 80 1B 00 06 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DE
DF 71 33 E0 AB E1 B4 31 32 E0 AB E2 B3 31 32 E0 AB E3 B2 31 32 E0 AB
E4 B1 31 32 E0 AB E5 B0 31 32 E0 AB E6 AF 31 32 15 19 07
)
:FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE #1=(BLOCK) 7. BLOCK
1. 2. 3. 4. 5. 6.
)
BLOCK DEFSTRUCT-DESCRIPTION #1#
((FNODE 1. NIL T NIL) (LABEL 2. NIL T NIL) (STACKZ 3. NIL T NIL)
(CONSVAR 4. NIL T NIL) (USED-FAR 5. NIL T NIL) (FOR-VALUE 6. NIL T NIL)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE BLOCK-P) BLOCK-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN BLOCK-P))
(BLOCK BLOCK-P (%STRUCTURE-TYPE-P 'BLOCK OBJECT))
)
#Y(BLOCK-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) BLOCK)
(FUNCTION BLOCK-FNODE (BLOCK) T) (INLINE BLOCK-FNODE) BLOCK-FNODE
(#2=(OBJECT) (DECLARE (IN-DEFUN BLOCK-FNODE))
(BLOCK BLOCK-FNODE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 1.)))
)
#Y(BLOCK-FNODE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 1.)
(FUNCTION BLOCK-LABEL (BLOCK) T) (INLINE BLOCK-LABEL) BLOCK-LABEL
(#2# (DECLARE (IN-DEFUN BLOCK-LABEL))
(BLOCK BLOCK-LABEL (THE T (%STRUCTURE-REF 'BLOCK OBJECT 2.)))
)
#Y(BLOCK-LABEL #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 2.)
(FUNCTION BLOCK-STACKZ (BLOCK) T) (INLINE BLOCK-STACKZ) BLOCK-STACKZ
(#2# (DECLARE (IN-DEFUN BLOCK-STACKZ))
(BLOCK BLOCK-STACKZ (THE T (%STRUCTURE-REF 'BLOCK OBJECT 3.)))
)
#Y(BLOCK-STACKZ #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 3.)
(FUNCTION BLOCK-CONSVAR (BLOCK) T) (INLINE BLOCK-CONSVAR) BLOCK-CONSVAR
(#2# (DECLARE (IN-DEFUN BLOCK-CONSVAR))
(BLOCK BLOCK-CONSVAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 4.)))
)
#Y(BLOCK-CONSVAR #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 4.)
(FUNCTION BLOCK-USED-FAR (BLOCK) T) (INLINE BLOCK-USED-FAR) BLOCK-USED-FAR
(#2# (DECLARE (IN-DEFUN BLOCK-USED-FAR))
(BLOCK BLOCK-USED-FAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 5.)))
)
#Y(BLOCK-USED-FAR #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 5.)
(FUNCTION BLOCK-FOR-VALUE (BLOCK) T) (INLINE BLOCK-FOR-VALUE)
BLOCK-FOR-VALUE
(#2# (DECLARE (IN-DEFUN BLOCK-FOR-VALUE))
(BLOCK BLOCK-FOR-VALUE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 6.)))
)
#Y(BLOCK-FOR-VALUE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 6.)
SETF-EXPANDER -1.
#Y(SETF-BLOCK-FNODE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'BLOCK 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-BLOCK-LABEL
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'BLOCK 2.
)
#Y(SETF-BLOCK-STACKZ
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'BLOCK 3.
)
#Y(SETF-BLOCK-CONSVAR
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'BLOCK 4.
)
#Y(SETF-BLOCK-USED-FAR
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'BLOCK 5.
)
#Y(SETF-BLOCK-FOR-VALUE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'BLOCK 6.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-62 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) BLOCK
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(BENV-SEARCH
#48Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 9C 1F 0A 9C 5A 77 9E 21 0C 82 01
1A 73 00 19 03 9C 5A 5B 19 03 9C 5A 78 D9 AB 31 35 16 01 1B 70 9C 5A
19 03
)
*BENV* BLOCK
) )
#Y(#:TOP-LEVEL-FORM-64 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *GENV*) *GENV*
)
#Y(#:TOP-LEVEL-FORM-65
#248Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
64 23 64 25 31 82 E7 64 26 64 27 03 28 79 31 88 E7 64 29 62 2C 03 2A
EC 64 26 64 27 03 2B 79 31 88 EC 64 29 62 2C 03 2A F1 64 26 64 27 03
2C 79 31 88 F1 64 29 62 2C 03 2A 64 1E 64 26 64 27 03 2D 79 31 88 64
1E 64 29 62 2C 03 2A 64 23 64 26 64 27 03 2E 79 31 88 64 23 64 29 62
2C 03 2A DB 64 2F 62 2C 03 2A DB 64 30 31 89 C6 19 01
)
MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
#Y(MAKE-TAGBODY
#57Y(00 00 00 00 80 1B 00 05 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 DD DE 71
33 DF AB E0 B3 31 32 DF AB E1 B2 31 32 DF AB E2 B1 31 32 DF AB E3 B0
31 32 DF AB E4 AF 31 32 15 19 06
)
:FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR #1=(TAGBODY) 6. TAGBODY 1.
2. 3. 4. 5.
)
TAGBODY DEFSTRUCT-DESCRIPTION #1#
((FNODE 1. NIL T NIL) (LABELLIST 2. NIL T NIL) (STACKZ 3. NIL T NIL)
(CONSVAR 4. NIL T NIL) (USED-FAR 5. NIL T NIL)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE TAGBODY-P) TAGBODY-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN TAGBODY-P))
(BLOCK TAGBODY-P (%STRUCTURE-TYPE-P 'TAGBODY OBJECT))
)
#Y(TAGBODY-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) TAGBODY)
(FUNCTION TAGBODY-FNODE (TAGBODY) T) (INLINE TAGBODY-FNODE) TAGBODY-FNODE
(#2=(OBJECT) (DECLARE (IN-DEFUN TAGBODY-FNODE))
(BLOCK TAGBODY-FNODE (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 1.)))
)
#Y(TAGBODY-FNODE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) TAGBODY 1.)
(FUNCTION TAGBODY-LABELLIST (TAGBODY) T) (INLINE TAGBODY-LABELLIST)
TAGBODY-LABELLIST
(#2# (DECLARE (IN-DEFUN TAGBODY-LABELLIST))
(BLOCK TAGBODY-LABELLIST (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 2.)))
)
#Y(TAGBODY-LABELLIST #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) TAGBODY 2.
)
(FUNCTION TAGBODY-STACKZ (TAGBODY) T) (INLINE TAGBODY-STACKZ) TAGBODY-STACKZ
(#2# (DECLARE (IN-DEFUN TAGBODY-STACKZ))
(BLOCK TAGBODY-STACKZ (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 3.)))
)
#Y(TAGBODY-STACKZ #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) TAGBODY 3.)
(FUNCTION TAGBODY-CONSVAR (TAGBODY) T) (INLINE TAGBODY-CONSVAR)
TAGBODY-CONSVAR
(#2# (DECLARE (IN-DEFUN TAGBODY-CONSVAR))
(BLOCK TAGBODY-CONSVAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 4.)))
)
#Y(TAGBODY-CONSVAR #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) TAGBODY 4.)
(FUNCTION TAGBODY-USED-FAR (TAGBODY) T) (INLINE TAGBODY-USED-FAR)
TAGBODY-USED-FAR
(#2# (DECLARE (IN-DEFUN TAGBODY-USED-FAR))
(BLOCK TAGBODY-USED-FAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 5.)))
)
#Y(TAGBODY-USED-FAR #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) TAGBODY 5.)
SETF-EXPANDER -1.
#Y(SETF-TAGBODY-FNODE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'TAGBODY 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-TAGBODY-LABELLIST
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'TAGBODY 2.
)
#Y(SETF-TAGBODY-STACKZ
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'TAGBODY 3.
)
#Y(SETF-TAGBODY-CONSVAR
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'TAGBODY 4.
)
#Y(SETF-TAGBODY-USED-FAR
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'TAGBODY 5.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-66 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) TAGBODY
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(GENV-SEARCH
#73Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 9C 1F 09 9C 5A 77 AA 71 48 D9 1A
25 00 19 03 9F 5A 5B 1A 0D 9F 5A 78 DA AB 31 35 16 01 1B 70 9F 5A 14
AB 3F 02 19 06 AC 9C 5E 14 B0 8D 03 65 84 00 AA AC 90 01 2D 70 16 03
82 01 1A 43
)
*GENV* 0. TAGBODY
) )
#Y(#:TOP-LEVEL-FORM-68
#18Y(00 00 00 00 00 01 D8 30 5D D9 DA 70 5E 30 55 C4 19 01)
(SPECIAL SPECDECL) SPECDECL
(LET
((*EVALHOOK*
#'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM)) (SVREF (SVREF ENV 0.) 1.)
)) )
0.
))
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROCLAIMED-SPECIAL-P REMOVE-OLD-DEFINITIONS
#Y(PROCLAIMED-SPECIAL-P
#25Y(00 01 00 00 00 02 AB 31 8F 1D 0C AB 6A 00 D9 37 02 30 B7 58 58 19 02
19 02
)
*KNOWN-SPECIAL-VARS* #.#'EQ
) )
#Y(#:TOP-LEVEL-FORM-70 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *VENV*) *VENV*
)
#Y(#:TOP-LEVEL-FORM-71 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *VENVC*) *VENVC*
)
#Y(#:TOP-LEVEL-FORM-72
#440Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
31 88 64 28 64 2A 31 82 64 2B 30 5D 64 2C 30 5D 64 2D 2E 01 64 2D E2
64 2E 31 88 64 2D 64 2F 31 82 64 30 30 5D 64 31 30 5D 64 32 2E 01 64
32 E2 64 33 31 88 64 32 64 34 31 82 64 35 30 5D 64 36 30 5D 64 37 2E
01 64 37 E2 64 38 31 88 64 37 64 39 31 82 64 3A 30 5D 64 3B 30 5D 64
3C 2E 01 64 3C E2 64 3D 31 88 64 3C 64 3E 31 82 64 3F 30 5D 64 40 30
5D 64 41 2E 01 64 41 E2 64 42 31 88 64 41 64 43 31 82 F1 64 44 64 45
03 46 79 31 88 F1 64 47 62 2C 03 48 64 1E 64 44 64 45 03 49 79 31 88
64 1E 64 47 62 2C 03 48 64 23 64 44 64 45 03 4A 79 31 88 64 23 64 47
62 2C 03 48 64 28 64 44 64 45 03 4B 79 31 88 64 28 64 47 62 2C 03 48
64 2D 64 44 64 45 03 4C 79 31 88 64 2D 64 47 62 2C 03 48 64 32 64 44
64 45 03 4D 79 31 88 64 32 64 47 62 2C 03 48 64 37 64 44 64 45 03 4E
79 31 88 64 37 64 47 62 2C 03 48 DB 64 4F 62 2C 03 48 DB 64 50 31 89
C6 19 01
)
MAKE-VAR REMOVE-OLD-DEFINITIONS
#Y(MAKE-VAR
#105Y(00 00 00 00 80 1B 00 0B 00 00 3C 0B 3C 0A 3C 09 3C 08 3C 07 3C 06
3C 05 3C 04 3C 03 3C 02 3C 01 E3 E4 71 33 E5 AB E6 B9 31 32 E5 AB
E7 B8 31 32 E5 AB E8 B7 31 32 E5 AB E9 B6 31 32 E5 AB EA B5 31 32
E5 AB EB B4 31 32 E5 AB EC B3 31 32 E5 AB ED B2 31 32 E5 AB EE B1
31 32 E5 AB EF B0 31 32 E5 AB F0 AF 31 32 15 19 0C
)
:NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP :REALLY-USEDP :MODIFIED-LIST
:REPLACEABLE-LIST :CLOSUREP :STACKZ :VENVC #1=(VAR) 12. VAR 1. 2. 3. 4.
5. 6. 7. 8. 9. 10. 11.
)
VAR DEFSTRUCT-DESCRIPTION #1#
((NAME 1. NIL T T) (SPECIALP 2. NIL T T) (CONSTANTP 3. NIL T NIL)
(CONSTANT 4. NIL T NIL) (USEDP 5. NIL T NIL) (REALLY-USEDP 6. NIL T NIL)
(MODIFIED-LIST 7. 'NIL T NIL) (REPLACEABLE-LIST 8. 'NIL T NIL)
(CLOSUREP 9. NIL T NIL) (STACKZ 10. NIL T T) (VENVC 11. NIL T T)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE VAR-P) VAR-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN VAR-P))
(BLOCK VAR-P (%STRUCTURE-TYPE-P 'VAR OBJECT))
)
#Y(VAR-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) VAR)
(FUNCTION VAR-NAME (VAR) T) (INLINE VAR-NAME) VAR-NAME
(#2=(OBJECT) (DECLARE (IN-DEFUN VAR-NAME))
(BLOCK VAR-NAME (THE T (%STRUCTURE-REF 'VAR OBJECT 1.)))
)
#Y(VAR-NAME #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 1.)
(FUNCTION VAR-SPECIALP (VAR) T) (INLINE VAR-SPECIALP) VAR-SPECIALP
(#2# (DECLARE (IN-DEFUN VAR-SPECIALP))
(BLOCK VAR-SPECIALP (THE T (%STRUCTURE-REF 'VAR OBJECT 2.)))
)
#Y(VAR-SPECIALP #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 2.)
(FUNCTION VAR-CONSTANTP (VAR) T) (INLINE VAR-CONSTANTP) VAR-CONSTANTP
(#2# (DECLARE (IN-DEFUN VAR-CONSTANTP))
(BLOCK VAR-CONSTANTP (THE T (%STRUCTURE-REF 'VAR OBJECT 3.)))
)
#Y(VAR-CONSTANTP #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 3.)
(FUNCTION VAR-CONSTANT (VAR) T) (INLINE VAR-CONSTANT) VAR-CONSTANT
(#2# (DECLARE (IN-DEFUN VAR-CONSTANT))
(BLOCK VAR-CONSTANT (THE T (%STRUCTURE-REF 'VAR OBJECT 4.)))
)
#Y(VAR-CONSTANT #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 4.)
(FUNCTION VAR-USEDP (VAR) T) (INLINE VAR-USEDP) VAR-USEDP
(#2# (DECLARE (IN-DEFUN VAR-USEDP))
(BLOCK VAR-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 5.)))
)
#Y(VAR-USEDP #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 5.)
(FUNCTION VAR-REALLY-USEDP (VAR) T) (INLINE VAR-REALLY-USEDP)
VAR-REALLY-USEDP
(#2# (DECLARE (IN-DEFUN VAR-REALLY-USEDP))
(BLOCK VAR-REALLY-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 6.)))
)
#Y(VAR-REALLY-USEDP #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 6.)
(FUNCTION VAR-MODIFIED-LIST (VAR) T) (INLINE VAR-MODIFIED-LIST)
VAR-MODIFIED-LIST
(#2# (DECLARE (IN-DEFUN VAR-MODIFIED-LIST))
(BLOCK VAR-MODIFIED-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 7.)))
)
#Y(VAR-MODIFIED-LIST #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 7.)
(FUNCTION VAR-REPLACEABLE-LIST (VAR) T) (INLINE VAR-REPLACEABLE-LIST)
VAR-REPLACEABLE-LIST
(#2# (DECLARE (IN-DEFUN VAR-REPLACEABLE-LIST))
(BLOCK VAR-REPLACEABLE-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 8.)))
)
#Y(VAR-REPLACEABLE-LIST #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 8.)
(FUNCTION VAR-CLOSUREP (VAR) T) (INLINE VAR-CLOSUREP) VAR-CLOSUREP
(#2# (DECLARE (IN-DEFUN VAR-CLOSUREP))
(BLOCK VAR-CLOSUREP (THE T (%STRUCTURE-REF 'VAR OBJECT 9.)))
)
#Y(VAR-CLOSUREP #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 9.)
(FUNCTION VAR-STACKZ (VAR) T) (INLINE VAR-STACKZ) VAR-STACKZ
(#2# (DECLARE (IN-DEFUN VAR-STACKZ))
(BLOCK VAR-STACKZ (THE T (%STRUCTURE-REF 'VAR OBJECT 10.)))
)
#Y(VAR-STACKZ #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 10.)
(FUNCTION VAR-VENVC (VAR) T) (INLINE VAR-VENVC) VAR-VENVC
(#2# (DECLARE (IN-DEFUN VAR-VENVC))
(BLOCK VAR-VENVC (THE T (%STRUCTURE-REF 'VAR OBJECT 11.)))
)
#Y(VAR-VENVC #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 11.)
SETF-EXPANDER -1.
#Y(SETF-VAR-CONSTANTP
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 3.
)
SETF %SET-DOCUMENTATION
#Y(SETF-VAR-CONSTANT
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 4.
)
#Y(SETF-VAR-USEDP
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 5.
)
#Y(SETF-VAR-REALLY-USEDP
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 6.
)
#Y(SETF-VAR-MODIFIED-LIST
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 7.
)
#Y(SETF-VAR-REPLACEABLE-LIST
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 8.
)
#Y(SETF-VAR-CLOSUREP
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'VAR 9.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-73 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) VAR
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
VENV-SEARCH REMOVE-OLD-DEFINITIONS
#Y(VENV-SEARCH
#122Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC 8B 61 0B AC 87 01 07 91 01
80 54 00 19 03 C5 19 03 AB 71 48 71 98 DB 1A 36 C5 19 06 DC AB DD
8D 31 77 63 AB 3F 02 19 06 C5 19 06 AD AB 31 97 5E 14 DC AB 8D 35
66 AA 0E 06 21 6D DF AF 95 03 3F 03 19 06 AE AE 9D 5E 21 62 DD AB
81 02 35 00 AA AC 90 01 2D 6E AD 9C 5E F9 16 02 92 01 FF AC AB 8D
26 FF AD E0 2E 09 92 01 FF A0 1A 72
)
*VENV* PROCLAIMED-SPECIAL-P SPECIAL 0. VAR 2. SPECDECL LOCAL VENV-SEARCH
COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
VENV-SEARCH-MACRO REMOVE-OLD-DEFINITIONS
#Y(VENV-SEARCH-MACRO
#55Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC AC 2F 01 41 03 92 02 07 AC 23
03 08 00 19 06 AF 2E 02 19 06 AB 9C 5E 14 2E 04 1E 0C 63 AC 9D 5E 14
DD 71 2E 3F 02 19 06 19 06
)
*VENV* VENV-SEARCH SYMBOL-MACRO-EXPAND LOCAL SYMBOL-MACRO-P 0.
) )
#Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PUSH-*VENV* REMOVE-OLD-DEFINITIONS
#Y(PUSH-*VENV*
#49Y(00 00 00 00 01 16 91 01 03 00 19 02 6A 00 7A 01 AC 62 1A 0F 86 01 00
D9 AB DA 71 31 AB 9F 61 02 F8 82 01 AB 8C 96 6D 16 02 DB 9C 36 00 0F
00 19 03
)
*VENV* VAR 1. #.#'VECTOR
) )
#Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ZUGRIFF-IN-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(ZUGRIFF-IN-CLOSURE
#83Y(00 03 00 00 00 04 01 02 1A 1A AA 8D 0D 12 C5 F8 1A 0E 7C 00 1A 25 93
04 92 02 6F 9B 1F 02 84 02 16 01 82 04 AE D8 B1 D9 31 31 22 6A 91 01
63 AD A0 5A 78 2F 03 41 02 69 01 69 01 9F 5A 77 DA 1A 04 82 01 84 00
93 01 A3 22 77 69 00 AC AC AC 3F 03 19 07
)
VAR 11. 0. ZUGRIFF-IN-STACK
) )
#Y(#:TOP-LEVEL-FORM-78
#156Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 E7 F4 F5 03 1E 79 31 88 E7 64 1F 62 2C 03 20 EC F4 F5 03
21 79 31 88 EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 88 F1 64 1F 62
2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 89 C6 19 01
)
MAKE-CONST REMOVE-OLD-DEFINITIONS
#Y(MAKE-CONST
#41Y(00 00 00 00 80 1B 00 03 00 00 3C 03 3C 02 3C 01 DB DC 71 33 DD AB DE
B1 31 32 DD AB DF B0 31 32 DD AB E0 AF 31 32 15 19 04
)
:VALUE :FORM :HORIZONT #1=(CONST) 4. CONST 1. 2. 3.
)
CONST DEFSTRUCT-DESCRIPTION #1#
((VALUE 1. NIL T NIL) (FORM 2. NIL T NIL) (HORIZONT 3. NIL T NIL))
CLOS::DEFINE-STRUCTURE-CLASS (INLINE CONST-P) CONST-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN CONST-P))
(BLOCK CONST-P (%STRUCTURE-TYPE-P 'CONST OBJECT))
)
#Y(CONST-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) CONST)
(FUNCTION CONST-VALUE (CONST) T) (INLINE CONST-VALUE) CONST-VALUE
(#2=(OBJECT) (DECLARE (IN-DEFUN CONST-VALUE))
(BLOCK CONST-VALUE (THE T (%STRUCTURE-REF 'CONST OBJECT 1.)))
)
#Y(CONST-VALUE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CONST 1.)
(FUNCTION CONST-FORM (CONST) T) (INLINE CONST-FORM) CONST-FORM
(#2# (DECLARE (IN-DEFUN CONST-FORM))
(BLOCK CONST-FORM (THE T (%STRUCTURE-REF 'CONST OBJECT 2.)))
)
#Y(CONST-FORM #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CONST 2.)
(FUNCTION CONST-HORIZONT (CONST) T) (INLINE CONST-HORIZONT) CONST-HORIZONT
(#2# (DECLARE (IN-DEFUN CONST-HORIZONT))
(BLOCK CONST-HORIZONT (THE T (%STRUCTURE-REF 'CONST OBJECT 3.)))
)
#Y(CONST-HORIZONT #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CONST 3.)
SETF-EXPANDER -1.
#Y(SETF-CONST-VALUE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'CONST 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-CONST-FORM
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'CONST 2.
)
#Y(SETF-CONST-HORIZONT
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'CONST 3.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-79 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) CONST
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 30 5D D9 DA 30 55 C4 19 01)
(SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
(SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DYNAMIC-EXTENT
DECLARATION ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON
COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION
HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT NIL NULL NUMBER PACKAGE
PATHNAME RANDOM-STATE RATIO RATIONAL READTABLE SEQUENCE SHORT-FLOAT
SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT
STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T VECTOR COMPILE SOURCE
IN-DEFUN IGNORABLE
))
#Y(#:TOP-LEVEL-FORM-81 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *DENV*) *DENV*
)
#Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROCESS-DECLARATIONS REMOVE-OLD-DEFINITIONS
#Y(PROCESS-DECLARATIONS
#269Y(00 01 00 00 00 02 01 03 AE 80 4A 04 14 62 1A 80 EE D8 D9 DA 6D 03
03 AB 2F 04 1A 80 E0 94 01 62 1A 17 AA 83 07 1A 10 86 01 00 14 8D
08 74 E4 E5 E6 6D 03 03 AB 2F 04 82 01 AB 8C 96 6A 16 03 1A 80 BB
94 01 62 1A 17 AA 83 06 1A 10 86 01 00 14 8D 08 74 E8 E9 EA 6D 03
03 AB 2F 04 82 01 AB 8C 96 6A 16 03 1A 80 96 94 01 62 1A 17 AA 83
05 1A 10 86 01 00 14 8D 08 74 EC ED EE 6D 03 03 AB 2F 04 82 01 AB
8C 96 6A 16 03 1A 80 71 16 01 AA 23 0B FF 8A AA 23 0F FF AA AA 23
13 4B AB 0E 07 5C 0F 07 16 01 1A 80 56 86 01 00 1F FF 64 AA 37 01
30 A0 5B 1B FF 5B 93 00 AA 8E 08 34 AA 6A 05 DE 37 02 8B B7 49 6A
07 92 00 16 9B 5A 77 24 08 0B AB 9C 5A 78 DE 37 02 8B B7 FF B1 82
00 91 00 6A 16 01 0E 09 1C 0A AA 6A 0A DE 37 02 8B B7 FF 9E EF F0
F1 6D 03 03 AB AD 2C 03 04 16 01 82 01 AB 8C 96 FF A3 16 02 AC AC
AC 3F 03 19 05
)
"Bad declaration syntax: ~S~%Will be ignored."
"Falsche Deklarationen-Syntax: ~S~%Wird ignoriert."
"Mauvaise syntaxe pour une déclaration : ~S~%Ignorée." LANGUAGE C-WARN
*DECLARATION-TYPES* #.#'EQ *DENV* DECLARATION *COMPILING-FROM-FILE*
*USER-DECLARATION-TYPES* SPECIAL
"Non-symbol ~S may not be declared SPECIAL."
"Nur Symbole können SPECIAL-deklariert werden, nicht ~S."
"Seuls les symboles peuvent être déclarés SPECIAL, pas ~S." IGNORE
"Non-symbol ~S may not be declared IGNORE."
"Nur Symbole können IGNORE-deklariert werden, nicht ~S."
"Seuls les symboles peuvent être déclarés IGNORE, pas ~S." IGNORABLE
"Non-symbol ~S may not be declared IGNORABLE."
"Nur Symbole können IGNORABLE-deklariert werden, nicht ~S."
"Seuls les symboles peuvent être déclarés IGNORABLE."
"Unknown declaration ~S.~%The whole declaration will be ignored."
"Unbekannte Deklaration ~S.~%Die ganze Deklaration ~S wird ignoriert."
"Déclaration inconnue ~S.~%Toute la déclaration ~S est ignorée."
) )
#Y(#:TOP-LEVEL-FORM-83 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DECLARED-NOTINLINE REMOVE-OLD-DEFINITIONS
#Y(DECLARED-NOTINLINE
#110Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 D9 AD 7A 02 6A 00 DA 37 02 8C
B7 12 1A 20 93 01 93 00 23 09 34 93 00 23 08 3B 16 01 82 01 9C 20
6D 0E 03 1C 18 AC 6A 04 DA 37 02 8C B7 06 02 19 03 00 19 03 AC 6A
05 DA 37 02 8B B7 74 AC 6E 06 DF 37 01 71 84 CB 59 19 03 AD 94 01
DA 37 02 8C B7 43 00 19 04 AD 94 01 DA 37 02 8C B7 FF BB 02 19 04
)
*DENV* INLINING #.#'EQUAL *COMPILING-FROM-FILE* *NOTINLINE-FUNCTIONS*
*INLINE-FUNCTIONS* GET-FUNNAME-SYMBOL INLINABLE NOTINLINE INLINE
) )
#Y(#:TOP-LEVEL-FORM-84
#919Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
31 88 64 28 64 2A 31 82 64 2B 30 5D 64 2C 30 5D 64 2D 2E 01 64 2D E2
64 2E 31 88 64 2D 64 2F 31 82 64 30 30 5D 64 31 30 5D 64 32 2E 01 64
32 E2 64 33 31 88 64 32 64 34 31 82 64 35 30 5D 64 36 30 5D 64 37 2E
01 64 37 E2 64 38 31 88 64 37 64 39 31 82 64 3A 30 5D 64 3B 30 5D 64
3C 2E 01 64 3C E2 64 3D 31 88 64 3C 64 3E 31 82 64 3F 30 5D 64 40 30
5D 64 41 2E 01 64 41 E2 64 42 31 88 64 41 64 43 31 82 64 44 30 5D 64
45 30 5D 64 46 2E 01 64 46 E2 64 47 31 88 64 46 64 48 31 82 64 49 30
5D 64 4A 30 5D 64 4B 2E 01 64 4B E2 64 4C 31 88 64 4B 64 4D 31 82 64
4E 30 5D 64 4F 30 5D 64 50 2E 01 64 50 E2 64 51 31 88 64 50 64 52 31
82 64 53 30 5D 64 54 30 5D 64 55 2E 01 64 55 E2 64 56 31 88 64 55 64
57 31 82 64 58 30 5D 64 59 30 5D 64 5A 2E 01 64 5A E2 64 5B 31 88 64
5A 64 5C 31 82 64 5D 30 5D 64 5E 30 5D 64 5F 2E 01 64 5F E2 64 60 31
88 64 5F 64 61 31 82 64 62 30 5D 64 63 30 5D 64 64 2E 01 64 64 E2 64
65 31 88 64 64 64 66 31 82 64 67 30 5D 64 68 30 5D 64 69 2E 01 64 69
E2 64 6A 31 88 64 69 64 6B 31 82 64 6C 30 5D 64 6D 30 5D 64 6E 2E 01
64 6E E2 64 6F 31 88 64 6E 64 70 31 82 E7 64 71 64 72 03 73 79 31 88
E7 64 74 62 2C 03 75 EC 64 71 64 72 03 76 79 31 88 EC 64 74 62 2C 03
75 F1 64 71 64 72 03 77 79 31 88 F1 64 74 62 2C 03 75 64 1E 64 71 64
72 03 78 79 31 88 64 1E 64 74 62 2C 03 75 64 23 64 71 64 72 03 79 79
31 88 64 23 64 74 62 2C 03 75 64 28 64 71 64 72 03 7A 79 31 88 64 28
64 74 62 2C 03 75 64 2D 64 71 64 72 03 7B 79 31 88 64 2D 64 74 62 2C
03 75 64 32 64 71 64 72 03 7C 79 31 88 64 32 64 74 62 2C 03 75 64 37
64 71 64 72 03 7D 79 31 88 64 37 64 74 62 2C 03 75 64 3C 64 71 64 72
03 7E 79 31 88 64 3C 64 74 62 2C 03 75 64 41 64 71 64 72 03 7F 79 31
88 64 41 64 74 62 2C 03 75 64 46 64 71 64 72 03 80 80 79 31 88 64 46
64 74 62 2C 03 75 64 4B 64 71 64 72 03 80 81 79 31 88 64 4B 64 74 62
2C 03 75 64 50 64 71 64 72 03 80 82 79 31 88 64 50 64 74 62 2C 03 75
64 55 64 71 64 72 03 80 83 79 31 88 64 55 64 74 62 2C 03 75 64 5A 64
71 64 72 03 80 84 79 31 88 64 5A 64 74 62 2C 03 75 64 5F 64 71 64 72
03 80 85 79 31 88 64 5F 64 74 62 2C 03 75 64 64 64 71 64 72 03 80 86
79 31 88 64 64 64 74 62 2C 03 75 64 69 64 71 64 72 03 80 87 79 31 88
64 69 64 74 62 2C 03 75 64 6E 64 71 64 72 03 80 88 79 31 88 64 6E 64
74 62 2C 03 75 DB 64 80 89 62 2C 03 75 DB 64 80 8A 31 89 C6 19 01
)
MAKE-FNODE REMOVE-OLD-DEFINITIONS
#Y(MAKE-FNODE
#199Y(00 00 00 00 80 1B 00 14 00 00 3C 14 3C 13 3C 12 3C 11 3C 10 3C 0F
3C 0E 3C 0D 3C 0C 3A 0B 03 D7 09 0B 3A 0A 03 D7 09 0A 3C 09 3C 08
3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 ED EE 71 33 EF AB F0 C2
31 32 EF AB F1 C1 31 32 EF AB F2 C0 31 32 EF AB F3 BF 31 32 EF AB
F4 BE 31 32 EF AB F5 BD 31 32 EF AB 64 1E BC 31 32 EF AB 64 1F BB
31 32 EF AB 64 20 BA 31 32 EF AB 64 21 B9 31 32 EF AB 64 22 B8 31
32 EF AB 64 23 B7 31 32 EF AB 64 24 B6 31 32 EF AB 64 25 B5 31 32
EF AB 64 26 B4 31 32 EF AB 64 27 B3 31 32 EF AB 64 28 B2 31 32 EF
AB 64 29 B1 31 32 EF AB 64 2A B0 31 32 EF AB 64 2B AF 31 32 15 19
15
)
:NAME :CODE :VENVCONST :VENVC :BLOCKS-OFFSET :BLOCKS :TAGBODYS-OFFSET
:TAGBODYS :KEYWORD-OFFSET :REQ-ANZ :OPT-ANZ :REST-FLAG :KEYWORD-FLAG
:KEYWORDS :ALLOW-OTHER-KEYS-FLAG :CONSTS-OFFSET :CONSTS :CONSTS-FORMS
:ENCLOSING :GF-P 0. #1=(FNODE) 21. FNODE 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
11. 12. 13. 14. 15. 16. 17. 18. 19. 20.
)
FNODE DEFSTRUCT-DESCRIPTION #1#
((NAME 1. NIL T NIL) (CODE 2. NIL T NIL) (VENVCONST 3. NIL T NIL)
(VENVC 4. NIL T NIL) (BLOCKS-OFFSET 5. NIL T NIL) (BLOCKS 6. NIL T NIL)
(TAGBODYS-OFFSET 7. NIL T NIL) (TAGBODYS 8. NIL T NIL)
(KEYWORD-OFFSET 9. NIL T NIL) (REQ-ANZ 10. 0. T NIL)
(OPT-ANZ 11. 0. T NIL) (REST-FLAG 12. NIL T NIL)
(KEYWORD-FLAG 13. NIL T NIL) (KEYWORDS 14. NIL T NIL)
(ALLOW-OTHER-KEYS-FLAG 15. NIL T NIL) (CONSTS-OFFSET 16. NIL T NIL)
(CONSTS 17. NIL T NIL) (CONSTS-FORMS 18. NIL T NIL)
(ENCLOSING 19. NIL T NIL) (GF-P 20. NIL T NIL)
)
CLOS::DEFINE-STRUCTURE-CLASS (INLINE FNODE-P) FNODE-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN FNODE-P))
(BLOCK FNODE-P (%STRUCTURE-TYPE-P 'FNODE OBJECT))
)
#Y(FNODE-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) FNODE)
(FUNCTION FNODE-NAME (FNODE) T) (INLINE FNODE-NAME) FNODE-NAME
(#2=(OBJECT) (DECLARE (IN-DEFUN FNODE-NAME))
(BLOCK FNODE-NAME (THE T (%STRUCTURE-REF 'FNODE OBJECT 1.)))
)
#Y(FNODE-NAME #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 1.)
(FUNCTION FNODE-CODE (FNODE) T) (INLINE FNODE-CODE) FNODE-CODE
(#2# (DECLARE (IN-DEFUN FNODE-CODE))
(BLOCK FNODE-CODE (THE T (%STRUCTURE-REF 'FNODE OBJECT 2.)))
)
#Y(FNODE-CODE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 2.)
(FUNCTION FNODE-VENVCONST (FNODE) T) (INLINE FNODE-VENVCONST)
FNODE-VENVCONST
(#2# (DECLARE (IN-DEFUN FNODE-VENVCONST))
(BLOCK FNODE-VENVCONST (THE T (%STRUCTURE-REF 'FNODE OBJECT 3.)))
)
#Y(FNODE-VENVCONST #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 3.)
(FUNCTION FNODE-VENVC (FNODE) T) (INLINE FNODE-VENVC) FNODE-VENVC
(#2# (DECLARE (IN-DEFUN FNODE-VENVC))
(BLOCK FNODE-VENVC (THE T (%STRUCTURE-REF 'FNODE OBJECT 4.)))
)
#Y(FNODE-VENVC #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 4.)
(FUNCTION FNODE-BLOCKS-OFFSET (FNODE) T) (INLINE FNODE-BLOCKS-OFFSET)
FNODE-BLOCKS-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-BLOCKS-OFFSET))
(BLOCK FNODE-BLOCKS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 5.)))
)
#Y(FNODE-BLOCKS-OFFSET #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 5.
)
(FUNCTION FNODE-BLOCKS (FNODE) T) (INLINE FNODE-BLOCKS) FNODE-BLOCKS
(#2# (DECLARE (IN-DEFUN FNODE-BLOCKS))
(BLOCK FNODE-BLOCKS (THE T (%STRUCTURE-REF 'FNODE OBJECT 6.)))
)
#Y(FNODE-BLOCKS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 6.)
(FUNCTION FNODE-TAGBODYS-OFFSET (FNODE) T) (INLINE FNODE-TAGBODYS-OFFSET)
FNODE-TAGBODYS-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS-OFFSET))
(BLOCK FNODE-TAGBODYS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 7.)))
)
#Y(FNODE-TAGBODYS-OFFSET #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE
7.
)
(FUNCTION FNODE-TAGBODYS (FNODE) T) (INLINE FNODE-TAGBODYS) FNODE-TAGBODYS
(#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS))
(BLOCK FNODE-TAGBODYS (THE T (%STRUCTURE-REF 'FNODE OBJECT 8.)))
)
#Y(FNODE-TAGBODYS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 8.)
(FUNCTION FNODE-KEYWORD-OFFSET (FNODE) T) (INLINE FNODE-KEYWORD-OFFSET)
FNODE-KEYWORD-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-OFFSET))
(BLOCK FNODE-KEYWORD-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 9.)))
)
#Y(FNODE-KEYWORD-OFFSET #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE
9.
)
(FUNCTION FNODE-REQ-ANZ (FNODE) T) (INLINE FNODE-REQ-ANZ) FNODE-REQ-ANZ
(#2# (DECLARE (IN-DEFUN FNODE-REQ-ANZ))
(BLOCK FNODE-REQ-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 10.)))
)
#Y(FNODE-REQ-ANZ #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 10.)
(FUNCTION FNODE-OPT-ANZ (FNODE) T) (INLINE FNODE-OPT-ANZ) FNODE-OPT-ANZ
(#2# (DECLARE (IN-DEFUN FNODE-OPT-ANZ))
(BLOCK FNODE-OPT-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 11.)))
)
#Y(FNODE-OPT-ANZ #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 11.)
(FUNCTION FNODE-REST-FLAG (FNODE) T) (INLINE FNODE-REST-FLAG)
FNODE-REST-FLAG
(#2# (DECLARE (IN-DEFUN FNODE-REST-FLAG))
(BLOCK FNODE-REST-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 12.)))
)
#Y(FNODE-REST-FLAG #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 12.)
(FUNCTION FNODE-KEYWORD-FLAG (FNODE) T) (INLINE FNODE-KEYWORD-FLAG)
FNODE-KEYWORD-FLAG
(#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-FLAG))
(BLOCK FNODE-KEYWORD-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 13.)))
)
#Y(FNODE-KEYWORD-FLAG #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 13.
)
(FUNCTION FNODE-KEYWORDS (FNODE) T) (INLINE FNODE-KEYWORDS) FNODE-KEYWORDS
(#2# (DECLARE (IN-DEFUN FNODE-KEYWORDS))
(BLOCK FNODE-KEYWORDS (THE T (%STRUCTURE-REF 'FNODE OBJECT 14.)))
)
#Y(FNODE-KEYWORDS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 14.)
(FUNCTION FNODE-ALLOW-OTHER-KEYS-FLAG (FNODE) T)
(INLINE FNODE-ALLOW-OTHER-KEYS-FLAG) FNODE-ALLOW-OTHER-KEYS-FLAG
(#2# (DECLARE (IN-DEFUN FNODE-ALLOW-OTHER-KEYS-FLAG))
(BLOCK FNODE-ALLOW-OTHER-KEYS-FLAG
(THE T (%STRUCTURE-REF 'FNODE OBJECT 15.))
) )
#Y(FNODE-ALLOW-OTHER-KEYS-FLAG #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
FNODE 15.
)
(FUNCTION FNODE-CONSTS-OFFSET (FNODE) T) (INLINE FNODE-CONSTS-OFFSET)
FNODE-CONSTS-OFFSET
(#2# (DECLARE (IN-DEFUN FNODE-CONSTS-OFFSET))
(BLOCK FNODE-CONSTS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 16.)))
)
#Y(FNODE-CONSTS-OFFSET #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE
16.
)
(FUNCTION FNODE-CONSTS (FNODE) T) (INLINE FNODE-CONSTS) FNODE-CONSTS
(#2# (DECLARE (IN-DEFUN FNODE-CONSTS))
(BLOCK FNODE-CONSTS (THE T (%STRUCTURE-REF 'FNODE OBJECT 17.)))
)
#Y(FNODE-CONSTS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 17.)
(FUNCTION FNODE-CONSTS-FORMS (FNODE) T) (INLINE FNODE-CONSTS-FORMS)
FNODE-CONSTS-FORMS
(#2# (DECLARE (IN-DEFUN FNODE-CONSTS-FORMS))
(BLOCK FNODE-CONSTS-FORMS (THE T (%STRUCTURE-REF 'FNODE OBJECT 18.)))
)
#Y(FNODE-CONSTS-FORMS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 18.
)
(FUNCTION FNODE-ENCLOSING (FNODE) T) (INLINE FNODE-ENCLOSING)
FNODE-ENCLOSING
(#2# (DECLARE (IN-DEFUN FNODE-ENCLOSING))
(BLOCK FNODE-ENCLOSING (THE T (%STRUCTURE-REF 'FNODE OBJECT 19.)))
)
#Y(FNODE-ENCLOSING #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 19.)
(FUNCTION FNODE-GF-P (FNODE) T) (INLINE FNODE-GF-P) FNODE-GF-P
(#2# (DECLARE (IN-DEFUN FNODE-GF-P))
(BLOCK FNODE-GF-P (THE T (%STRUCTURE-REF 'FNODE OBJECT 20.)))
)
#Y(FNODE-GF-P #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 20.)
SETF-EXPANDER -1.
#Y(SETF-FNODE-NAME
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-FNODE-CODE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 2.
)
#Y(SETF-FNODE-VENVCONST
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 3.
)
#Y(SETF-FNODE-VENVC
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 4.
)
#Y(SETF-FNODE-BLOCKS-OFFSET
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 5.
)
#Y(SETF-FNODE-BLOCKS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 6.
)
#Y(SETF-FNODE-TAGBODYS-OFFSET
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 7.
)
#Y(SETF-FNODE-TAGBODYS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 8.
)
#Y(SETF-FNODE-KEYWORD-OFFSET
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 9.
)
#Y(SETF-FNODE-REQ-ANZ
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 10.
)
#Y(SETF-FNODE-OPT-ANZ
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 11.
)
#Y(SETF-FNODE-REST-FLAG
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 12.
)
#Y(SETF-FNODE-KEYWORD-FLAG
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 13.
)
#Y(SETF-FNODE-KEYWORDS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 14.
)
#Y(SETF-FNODE-ALLOW-OTHER-KEYS-FLAG
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 15.
)
#Y(SETF-FNODE-CONSTS-OFFSET
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 16.
)
#Y(SETF-FNODE-CONSTS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 17.
)
#Y(SETF-FNODE-CONSTS-FORMS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 18.
)
#Y(SETF-FNODE-ENCLOSING
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 19.
)
#Y(SETF-FNODE-GF-P
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'FNODE 20.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-85 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) FNODE
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-86 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *FUNC*) *FUNC*
)
#Y(#:TOP-LEVEL-FORM-87 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *FUNC-START-LABEL*) *FUNC-START-LABEL*
)
#Y(#:TOP-LEVEL-FORM-88 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *ANONYMOUS-COUNT*) *ANONYMOUS-COUNT*
)
#Y(#:TOP-LEVEL-FORM-89 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *NO-CODE*) *NO-CODE*
)
#Y(#:TOP-LEVEL-FORM-90 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *FORM*) *FORM*
)
#Y(#:TOP-LEVEL-FORM-91 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *FOR-VALUE*) *FOR-VALUE*
)
#Y(#:TOP-LEVEL-FORM-92
#156Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 62 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 E7 F4 F5 03 1E 79 31 88 E7 64 1F 62 2C 03 20 EC F4 F5 03
21 79 31 88 EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 88 F1 64 1F 62
2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 89 C6 19 01
)
MK-ANODE REMOVE-OLD-DEFINITIONS
#Y(MK-ANODE
#31Y(00 03 00 00 00 04 D8 D9 71 33 DA AB DB B1 31 32 DA AB DC B0 31 32 DA
AB DD AF 31 32 15 19 04
)
#1=(ANODE) 4. ANODE 1. 2. 3.
)
ANODE DEFSTRUCT-DESCRIPTION #1#
((TYPE 1. NIL T NIL) (SECLASS 2. NIL T NIL) (CODE 3. NIL T NIL))
CLOS::DEFINE-STRUCTURE-CLASS (INLINE ANODE-P) ANODE-P INLINE-EXPANSION
((OBJECT) (DECLARE (IN-DEFUN ANODE-P))
(BLOCK ANODE-P (%STRUCTURE-TYPE-P 'ANODE OBJECT))
)
#Y(ANODE-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) ANODE)
(FUNCTION ANODE-TYPE (ANODE) T) (INLINE ANODE-TYPE) ANODE-TYPE
(#2=(OBJECT) (DECLARE (IN-DEFUN ANODE-TYPE))
(BLOCK ANODE-TYPE (THE T (%STRUCTURE-REF 'ANODE OBJECT 1.)))
)
#Y(ANODE-TYPE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) ANODE 1.)
(FUNCTION ANODE-SECLASS (ANODE) T) (INLINE ANODE-SECLASS) ANODE-SECLASS
(#2# (DECLARE (IN-DEFUN ANODE-SECLASS))
(BLOCK ANODE-SECLASS (THE T (%STRUCTURE-REF 'ANODE OBJECT 2.)))
)
#Y(ANODE-SECLASS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) ANODE 2.)
(FUNCTION ANODE-CODE (ANODE) T) (INLINE ANODE-CODE) ANODE-CODE
(#2# (DECLARE (IN-DEFUN ANODE-CODE))
(BLOCK ANODE-CODE (THE T (%STRUCTURE-REF 'ANODE OBJECT 3.)))
)
#Y(ANODE-CODE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) ANODE 3.)
SETF-EXPANDER -1.
#Y(SETF-ANODE-TYPE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'ANODE 1.
)
SETF %SET-DOCUMENTATION
#Y(SETF-ANODE-SECLASS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'ANODE 2.
)
#Y(SETF-ANODE-CODE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
%STRUCTURE-STORE 'ANODE 3.
)
STRUCTURE STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-93 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) ANODE
DEFSTRUCT-DESCRIPTION
)
#Y(#:TOP-LEVEL-FORM-94 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SECLASS-OR REMOVE-OLD-DEFINITIONS
#Y(SECLASS-OR
#21Y(00 00 00 00 01 16 92 01 09 98 01 AC 37 05 31 4C 19 02 C3 19 02)
(NIL) SECLASS-OR-2
) )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SECLASS-OR-2 REMOVE-OLD-DEFINITIONS
#Y(SECLASS-OR-2
#48Y(00 02 00 00 00 03 93 02 02 21 1F 93 01 02 21 1A 93 02 93 02 2F 00 14
94 03 02 21 11 94 02 02 21 0C 94 03 94 03 2F 00 5C 19 03 02 1A 69 02
1A 77
)
UNION
) )
#Y(#:TOP-LEVEL-FORM-97 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANODELIST-SECLASS-OR REMOVE-OLD-DEFINITIONS
#Y(ANODELIST-SECLASS-OR
#17Y(00 01 00 00 00 02 98 00 98 01 AD 32 00 17 9A 00 02) SECLASS-OR
ANODE-SECLASS
) )
#Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SECLASS-WITHOUT REMOVE-OLD-DEFINITIONS
#Y(SECLASS-WITHOUT
#51Y(00 02 00 00 00 03 00 2A 01 7E 02 00 00 AA 6C 00 01 93 04 02 21 17 AA
93 05 37 05 31 50 14 94 05 02 21 0D AB 94 06 37 05 31 50 5C 19 05 02
1A 6D 02 1A 77
)
#Y(SECLASS-WITHOUT-BOUND
#16Y(00 01 00 00 00 02 AB 68 00 01 37 03 30 B7 19 02) NIL
) ) )
#Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANODES-COMMUTE REMOVE-OLD-DEFINITIONS
#Y(ANODES-COMMUTE
#20Y(00 02 00 00 00 03 D8 AD D9 71 31 D8 AD D9 71 31 2F 02 19 03) ANODE
2. SECLASSES-COMMUTE
) )
#Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SECLASSES-COMMUTE REMOVE-OLD-DEFINITIONS
#Y(SECLASSES-COMMUTE
#24Y(00 02 00 00 00 03 93 02 94 02 C3 33 1E 08 93 01 94 03 C3 33 19 03 19
03
)
#Y(SECLASSES-COMMUTE-DISJOINT-P
#35Y(00 02 00 00 00 03 9D 58 1D 17 9C 58 1D 13 AC 02 59 58 1E 0D AB 02
59 58 1E 07 AC AC 2F 00 58 19 03 19 03
)
INTERSECTION
) ) )
#Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GET-FUNNAME-STRING+PACK REMOVE-OLD-DEFINITIONS
#Y(GET-FUNNAME-STRING+PACK
#40Y(00 01 00 00 00 02 9C 1F 19 D8 93 02 71 8C D9 9F 5B 77 71 8C DA 72 05
13 9D 5B 5A 14 71 8A 3F 02 19 02 AB 71 8C 9D 1A 73
)
"(" " " ")"
) )
#Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SYMBOL-SUFFIX REMOVE-OLD-DEFINITIONS
#Y(SYMBOL-SUFFIX
#73Y(00 02 00 00 00 03 AC 8E 08 08 AC 8D 8A 04 AB 87 00 28 AC 2E 01 41 02
AD 8D 08 22 AD 8D 09 0D AD 37 0B 7C 06 C5 FA 7C 05 14 7F 89 03 AB DB
AF 72 03 13 91 01 0E AA 30 CE 19 06 9C 19 03 AD 80 8C 03 1A 69 AA AC
30 D7 19 06
)
FUNCTION-NAME-P GET-FUNNAME-STRING+PACK 10. "-"
) )
#Y(#:TOP-LEVEL-FORM-104 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-COMMENT REMOVE-OLD-DEFINITIONS
#Y(C-COMMENT
#31Y(00 01 00 00 01 17 0E 00 1B 09 0E 02 14 91 00 07 00 19 04 0E 01 1A 75
98 03 AB AF A0 9A 02 04
)
*COMPILE-VERBOSE* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT
) )
#Y(#:TOP-LEVEL-FORM-105 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-SOURCE-LOCATION REMOVE-OLD-DEFINITIONS
#Y(C-SOURCE-LOCATION
#51Y(00 00 00 00 00 01 0E 00 1C 08 0E 01 1C 04 0E 02 1B 08 CE 19 01 DB DC
C8 1A 0C 62 6A 01 6A 02 8F 01 2D 72 DF E0 CC 14 6D 03 06 6A 01 6A 02
2C 04 0A 19 01
)
*COMPILING-FROM-FILE* *COMPILE-FILE-LINENO1* *COMPILE-FILE-LINENO2*
" in line ~D" " in Zeile ~D" " dans la ligne ~D" LANGUAGE
" in lines ~D..~D" " in Zeilen ~D..~D" " dans les lignes ~D..~D" FORMAT
""
) )
#Y(#:TOP-LEVEL-FORM-106 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *WARNING-COUNT*) *WARNING-COUNT*
)
#Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-WARN REMOVE-OLD-DEFINITIONS
#Y(C-WARN
#75Y(00 01 00 00 01 17 D8 D9 DA 6D 03 03 AD 81 02 13 02 6A 04 31 97 0F 04
0E 05 1B 09 0E 07 14 91 00 07 00 19 04 0E 06 1A 75 98 08 AB AF E1 8C
52 13 6A 09 E2 AB 31 35 16 01 1C 09 6A 09 E2 AB E3 31 31 16 01 14 2D
0C 14 A2 9A 04 04
)
"~%WARNING~@[ in function ~S~]~A :~%"
"~%WARNUNG~@[ in Funktion ~S~]~A :~%"
"~%AVERTISSEMENT~@[ dans la fonction ~S~]~A :~%" LANGUAGE *WARNING-COUNT*
*COMPILE-WARNINGS* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT *FUNC*
FNODE 1. C-SOURCE-LOCATION
) )
#Y(#:TOP-LEVEL-FORM-108 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *ERROR-COUNT*) *ERROR-COUNT*
)
#Y(#:TOP-LEVEL-FORM-109 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-ERROR REMOVE-OLD-DEFINITIONS
#Y(C-ERROR
#79Y(00 01 00 00 01 17 6A 00 31 97 0F 00 D9 8C 52 13 6A 01 DA AB 31 35 16
01 1C 09 6A 01 DA AB DB 31 31 16 01 14 92 00 0D 0E 04 1C 09 AA 6A 05
37 03 30 BB 0F 05 6A 06 DF E0 E1 6D 03 0A AC 2D 0B 14 B1 B1 2C 06 0C
16 01 E5 E6 E7 E8 2C 03 11 51
)
*ERROR-COUNT* *FUNC* FNODE 1. *COMPILING-FROM-FILE*
*FUNCTIONS-WITH-ERRORS* *C-ERROR-OUTPUT*
"~%ERROR~@[ in function ~S~]~A :~%~?"
"~%ERROR~@[ in Funktion ~S~]~A :~%~?"
"~%ERREUR~@[ dans la fonction ~S~]~A :~%~?" LANGUAGE C-SOURCE-LOCATION
FORMAT C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-110 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-EVAL-WHEN-COMPILE REMOVE-OLD-DEFINITIONS
#Y(C-EVAL-WHEN-COMPILE
#33Y(00 01 00 00 00 02 0E 00 1C 12 0E 01 1C 0E 6A 01 30 8F AB 37 0C 7D 02
F6 6A 01 30 84 AB 30 5E 19 02
)
*COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
) )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-CONSTANTP REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANTP
#84Y(00 01 00 00 00 02 9C 1F 1B 93 01 C5 59 1E 80 42 94 01 31 06 1E 3C 9C
5B 5B 58 19 02 02 19 02 AB 30 61 19 02 AB 31 0A 1D 29 AB 31 1E 1D 24
AB 31 09 1D 1F AB 31 24 1D 1A AB 31 08 1E 15 AB 8D 8D 5B AB 71 8A 0E
00 21 57 AB 6A 01 37 03 30 BE 58 1A 47 19 02
)
*LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
) )
#Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANT-VALUE
#66Y(00 01 00 00 00 02 9C 20 34 AB 8D 0A 14 AB 8D 1E 10 AB 8D 09 0C AB 8D
24 08 AB 8E 08 1D AB 8E 8D 08 9C 19 02 AB 30 51 19 02 AB 71 8A 0E 00
21 74 AB 6A 01 37 03 30 BE 5B 19 02 00 19 02 9C 5B 5A 19 02
)
*LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
) )
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANODE-CONSTANTP REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANTP
#63Y(00 01 00 00 00 02 D8 AC D9 71 31 AA 31 06 1E 2D 9B 5B 58 1E 28 93 00
9B 20 08 D8 AB 8D 35 17 00 19 04 93 00 C5 59 1E 13 9B 5B 77 DA AB D9
80 31 00 C6 59 58 19 04 AA 28 01 05 4B 19 04 19 03
)
ANODE 3. CONST :FORM
) )
#Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANODE-CONSTANT REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANT
#25Y(00 01 00 00 00 02 D8 AC D9 31 31 77 9B 20 05 AA 28 01 04 72 9B 5B 5A
19 03
)
ANODE 3.
) )
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANODE-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
#Y(ANODE-CONSTANT-VALUE
#16Y(00 01 00 00 00 02 AB 6E 00 D9 AB DA 31 31 19 03) ANODE-CONSTANT
CONST 1.
) )
#Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
NEW-CONST REMOVE-OLD-DEFINITIONS
#Y(NEW-CONST #15Y(00 01 00 00 00 02 D8 D9 D9 AE 2C 04 02 19 02) :HORIZONT
:VALUE MAKE-CONST
) )
#Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-LABEL REMOVE-OLD-DEFINITIONS
#Y(MAKE-LABEL
#22Y(00 01 00 00 00 02 37 01 71 90 AA 62 30 55 AA D8 AE 31 88 15 19 02)
FOR-VALUE
) )
#Y(#:TOP-LEVEL-FORM-118 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-SPECIAL-VAR REMOVE-OLD-DEFINITIONS
#Y(MAKE-SPECIAL-VAR
#39Y(00 01 00 00 00 02 D8 AC D9 63 DA B0 6E 03 DC B2 87 03 07 00 14 2C 08
0B 19 02 DD DE DF B5 6E 08 E1 B7 2C 06 0A 1A 6D
)
:NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :HORIZONT :ALL :VALUE
C-CONSTANT-VALUE :FORM MAKE-CONST MAKE-VAR
) )
#Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
TEST-LIST REMOVE-OLD-DEFINITIONS
#Y(TEST-LIST
#81Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3C 01 AD 8E 0D 08 AD 37 01 30 A0 5B
1C 09 D9 DA DB 6D 03 04 AE 2F 05 AD 71 48 AD 90 01 32 0E 92 01 08 AD
71 48 AC 90 01 31 11 00 19 04 DE DF E0 6D 03 04 AE 2F 05 92 01 71 1A
67 E1 E2 E3 6D 03 04 AE 2F 05 19 04
)
0. "Code contains dotted list ~S" "Dotted list im Code: ~S"
"Paire pointée dans le code en ~S" LANGUAGE C-ERROR
"Form too short, too few arguments: ~S"
"Form zu kurz (zu wenig Argumente): ~S"
"Forme trop courte (trop peu d'arguments) : ~S"
"Form too long, too many arguments: ~S"
"Form zu lang (zu viele Argumente): ~S"
"Forme trop longue (trop d'arguments) : ~S"
) )
#Y(#:TOP-LEVEL-FORM-120
#68Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 DA DB C7 79 DD C9 79 CA 7B 04 AA
1A 0F 93 00 93 00 94 01 AB B0 AC 30 68 16 03 82 00 9B 20 6E 16 02 E0 8C
61 0B AA E0 70 51 8D 03 04 E0 E1 2F 0A E0 AB 31 83 CB 19 02
)
#.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
#Y(#:TOP-LEVEL-FORM-120-1 #11Y(00 00 00 00 00 01 62 2E 00 19 01) C-LET/LET*)
LET*
#Y(#:TOP-LEVEL-FORM-120-2 #11Y(00 00 00 00 00 01 63 2E 00 19 01) C-LET/LET*)
#3=((IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK)
(RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY) (GO . C-GO)
(FUNCTION . C-FUNCTION) (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
(MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND) (OR . C-OR)
(WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND) (PSETQ . C-PSETQ)
(MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
(PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
(UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
(MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
(MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
(LABELS . C-LABELS) (MACROLET . C-MACROLET)
(SYMBOL-MACROLET . C-SYMBOL-MACROLET) (COMPILER-LET . C-COMPILER-LET)
(EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
(LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY)
(CASE . C-CASE) (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
(%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
(CLOS:GENERIC-FLET . C-GENERIC-FLET)
(CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
(HANDLER-BIND . C-HANDLER-BIND) (%HANDLER-BIND . C-HANDLER-BIND)
(CONSTANT-EQL . C-CONSTANT-EQL) (FUNCALL . C-FUNCALL)
(%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
(SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL)
(MAPCAR . C-MAPCAR) (MAPLIST . C-MAPLIST) (MAPC . C-MAPC)
(MAPL . C-MAPL) (MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON)
(MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
(FORMAT . C-FORMAT) (REMOVE-IF . C-REMOVE-IF)
(REMOVE-IF-NOT . C-REMOVE-IF-NOT) (DELETE-IF . C-DELETE-IF)
(DELETE-IF-NOT . C-DELETE-IF-NOT) (SUBSTITUTE-IF . C-SUBSTITUTE-IF)
(SUBSTITUTE-IF-NOT . C-SUBSTITUTE-IF-NOT)
(NSUBSTITUTE-IF . C-NSUBSTITUTE-IF)
(NSUBSTITUTE-IF-NOT . C-NSUBSTITUTE-IF-NOT) (FIND-IF . C-FIND-IF)
(FIND-IF-NOT . C-FIND-IF-NOT) (POSITION-IF . C-POSITION-IF)
(POSITION-IF-NOT . C-POSITION-IF-NOT) (COUNT-IF . C-COUNT-IF)
(COUNT-IF-NOT . C-COUNT-IF-NOT) (SUBST-IF . C-SUBST-IF)
(SUBST-IF-NOT . C-SUBST-IF-NOT) (NSUBST-IF . C-NSUBST-IF)
(NSUBST-IF-NOT . C-NSUBST-IF-NOT) (MEMBER-IF . C-MEMBER-IF)
(MEMBER-IF-NOT . C-MEMBER-IF-NOT) (ASSOC-IF . C-ASSOC-IF)
(ASSOC-IF-NOT . C-ASSOC-IF-NOT) (RASSOC-IF . C-RASSOC-IF)
(RASSOC-IF-NOT . C-RASSOC-IF-NOT)
)
C-FORM-TABLE
(DEFCONSTANT C-FORM-TABLE
(LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
(MAPC
#'(LAMBDA (ACONS) (SETF (GETHASH (CAR ACONS) HASHTABLE) (CDR ACONS)))
`((QUOTE . C-QUOTE) (PROGN . C-PROGN)
(LET . ,#'(LAMBDA NIL (C-LET/LET* NIL)))
(LET* . ,#'(LAMBDA NIL (C-LET/LET* T))) (IF . C-IF) (SETQ . C-SETQ)
(BLOCK . C-BLOCK) (RETURN-FROM . C-RETURN-FROM)
(TAGBODY . C-TAGBODY) (GO . C-GO) (FUNCTION . C-FUNCTION)
(MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
(MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND)
(OR . C-OR) (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND)
(PSETQ . C-PSETQ) (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL)
(PROG1 . C-PROG1) (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH)
(THROW . C-THROW) (UNWIND-PROTECT . C-UNWIND-PROTECT)
(PROGV . C-PROGV) (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
(MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
(LABELS . C-LABELS) (MACROLET . C-MACROLET)
(SYMBOL-MACROLET . C-SYMBOL-MACROLET)
(COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN)
(DECLARE . C-DECLARE) (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE)
(LOCALLY . C-LOCALLY) (CASE . C-CASE)
(%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
(%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
(CLOS:GENERIC-FLET . C-GENERIC-FLET)
(CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
(HANDLER-BIND . C-HANDLER-BIND) (%HANDLER-BIND . C-HANDLER-BIND)
(CONSTANT-EQL . C-CONSTANT-EQL) (FUNCALL . C-FUNCALL)
(%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
(SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL)
(MAPCAR . C-MAPCAR) (MAPLIST . C-MAPLIST) (MAPC . C-MAPC)
(MAPL . C-MAPL) (MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON)
(MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
(FORMAT . C-FORMAT) (REMOVE-IF . C-REMOVE-IF)
(REMOVE-IF-NOT . C-REMOVE-IF-NOT) (DELETE-IF . C-DELETE-IF)
(DELETE-IF-NOT . C-DELETE-IF-NOT) (SUBSTITUTE-IF . C-SUBSTITUTE-IF)
(SUBSTITUTE-IF-NOT . C-SUBSTITUTE-IF-NOT)
(NSUBSTITUTE-IF . C-NSUBSTITUTE-IF)
(NSUBSTITUTE-IF-NOT . C-NSUBSTITUTE-IF-NOT) (FIND-IF . C-FIND-IF)
(FIND-IF-NOT . C-FIND-IF-NOT) (POSITION-IF . C-POSITION-IF)
(POSITION-IF-NOT . C-POSITION-IF-NOT) (COUNT-IF . C-COUNT-IF)
(COUNT-IF-NOT . C-COUNT-IF-NOT) (SUBST-IF . C-SUBST-IF)
(SUBST-IF-NOT . C-SUBST-IF-NOT) (NSUBST-IF . C-NSUBST-IF)
(NSUBST-IF-NOT . C-NSUBST-IF-NOT) (MEMBER-IF . C-MEMBER-IF)
(MEMBER-IF-NOT . C-MEMBER-IF-NOT) (ASSOC-IF . C-ASSOC-IF)
(ASSOC-IF-NOT . C-ASSOC-IF-NOT) (RASSOC-IF . C-RASSOC-IF)
(RASSOC-IF-NOT . C-RASSOC-IF-NOT)
) )
HASHTABLE
) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-121 #12Y(00 00 00 00 00 01 D8 30 E7 00 19 01)
#Y(#:TOP-LEVEL-FORM-121-1
#26Y(00 01 00 00 00 02 AB 8C 54 08 AB 6A 00 37 01 8C 67 03 00 19 02 D8 2E
01 19 02
)
C-FORM-TABLE COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FORM REMOVE-OLD-DEFINITIONS
#Y(C-FORM
#318Y(00 01 00 01 00 08 9D 10 00 3A 04 02 0E 01 10 01 C5 4F 81 16 0E 00
20 80 5B 6A 00 8E 08 1C 6A 00 6A 03 2F 04 41 02 91 01 0A 6A 00 2E
05 16 02 50 1A 80 F7 AA 37 01 27 4E 1A 73 2D 06 50 1A 80 EA AE 8B
54 09 AE 8B 5A 05 AE 87 0A 80 68 AA 35 00 1A 80 65 6A 00 6A 03 6A
0C 72 02 00 70 5C 37 01 27 FF A3 1A 80 52 AE 6A 0D 00 79 0E 00 78
2C 03 13 1A 80 44 0E 00 77 AA 88 07 80 9A AA 2E 08 41 03 91 02 3A
AD 6A 09 37 01 70 67 91 00 FF B1 AE 8E 08 05 AE 8B 5A FF BB AE 6A
0D E6 AB E7 80 31 00 8E 04 11 AE 87 0A 0D E8 AF 7A 02 6A 11 EA 37
02 8B B7 FF B1 AE 2E 0B 16 05 50 1A 80 6C 9D 25 14 27 6A 00 6A 03
6A 0C 72 02 00 70 5C 37 01 27 FF 34 1A 18 ED AE 7A 02 0E 00 78 2F
16 1A 0D AD AB 0E 00 78 2C 03 13 1A 03 EF 2E 18 16 04 50 1A 39 F2
ED AC 7A 02 0E 00 5B 7B 02 37 01 27 FF 06 1A 25 64 1F AB 64 21 62
31 32 64 1F AB 64 20 64 22 31 32 15 1A 24 9B 1F 05 93 00 23 19 53
F3 F4 F5 6D 03 1E AB 2F 02 16 01 50 14 0E 01 1B 0A 64 1F AB 64 20
31 31 5B 1C 49 15 12 02 19 03
)
*FORM* *FOR-VALUE* C-ERROR *VENV* VENV-SEARCH-MACRO C-VAR C-CONST
FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE DECLARED-NOTINLINE
C-GLOBAL-FUNCTION-CALL *FENV* *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL
C-LOCAL-FUNCTION-CALL
#S(HASH-TABLE EQ (LOCAL . 30.) (GLOBAL . 19.) (MACRO . 1.)) FUNCTION
C-FUNCALL-NOTINLINE C-FORM COMPILER-ERROR LAMBDA %FUNCALL
"Not the name of a function: ~S"
"Das ist nicht der Name einer Funktion: ~S"
"Ceci n'est pas le nom d'une fonction : ~S" LANGUAGE ANODE 2. 3. (NIL)
) )
#Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-NIL REMOVE-OLD-DEFINITIONS
#Y(C-NIL #14Y(00 00 00 00 00 01 62 D8 D9 2C 03 02 19 01) (NIL) ((NIL))
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-CONST REMOVE-OLD-DEFINITIONS
#Y(C-CONST
#22Y(00 00 00 00 00 01 D8 D9 D8 6A 02 6E 03 7A 02 7A 01 2C 03 04 19 01)
CONST (NIL) *FORM* NEW-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-VAR REMOVE-OLD-DEFINITIONS
#Y(C-VAR
#317Y(00 01 00 00 00 02 AB 2E 00 41 03 91 02 19 D9 DA DB 6D 03 04 AF 2F
05 0E 06 1C 0A AE 6A 07 E0 37 02 30 BB 0F 07 CC F8 9D 25 0A 81 0A
B0 60 01 1A 25 D4 1A 07 E7 E8 B3 8D 8D 77 D5 14 E9 B5 6E 13 EC B7
2C 06 15 1A 1E AE 6E 0B E4 0E 0D 1C 06 E4 AC E6 8E 31 57 00 14 00
79 0E 0D 1C 0F E4 AD E6 8D 31 51 EE A3 14 7A 02 60 01 1A 01 00 14
2C 03 17 19 06 02 1A 19 E7 AE 6E 18 7A 02 F1 E7 AF 6E 18 7A 02 03
1A 61 03 1A 0E E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 60 00 14 2C 03
17 19 05 AC 60 01 1A 17 F3 AE 6A 1C 6A 1D 7A 04 60 01 1A 13 16 01
1A 80 80 E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 62 00 14 6D 03 17 AA
E4 AE 64 1E 31 31 79 E4 AE 64 1E AD 31 32 16 01 0E 0D 1C 80 58 0E
1F 1B 80 53 E4 AD 64 20 63 31 32 E4 AD 64 21 71 31 6E 22 0E 23 21
07 E4 AD 64 24 63 31 32 E4 AD 64 24 8E 31 32 6A 1C 92 00 25 AA E4
AF 64 25 31 31 21 FF 9E 93 00 64 26 AB 31 35 16 01 1C 0B 93 00 64
26 AB E6 63 31 32 16 01 82 00 91 00 5B 64 27 64 28 2F 29 16 01 15
19 05 64 27 D8 2F 29 19 05
)
VENV-SEARCH
"~S is neither declared nor bound, it will be treated as if it were declared SPECIAL."
"~S ist weder deklariert noch gebunden, behandle es als SPECIAL-deklarierte Variable."
"~S n'est ni déclaré ni lié, et va être traité comme étant déclaré SPECIAL."
LANGUAGE C-WARN *COMPILING-FROM-FILE* *UNKNOWN-FREE-VARS* #.#'EQ SPECIAL
#S(HASH-TABLE EQ (T . 137.) (LOCAL . 95.) (SPECIAL . 29.))
MAKE-SPECIAL-VAR VAR *FOR-VALUE* 3. CONST :HORIZONT :VALUE :ALL
C-CONSTANT-VALUE :FORM MAKE-CONST GETVALUE MK-ANODE NEW-CONST (PUSH)
((SVREF)) GET *VENVC* *STACKZ* 5. *NO-CODE* 6. 10. STACKZ-FUN *FUNC* 9.
11. FNODE C-VAR "INVISIBLE" COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-VARSET REMOVE-OLD-DEFINITIONS
#Y(C-VARSET
#278Y(00 03 00 00 00 04 AD 2E 00 41 03 91 02 0B D9 DA DB 6D 03 04 B1 2F
05 C9 F8 9D 25 07 80 F1 00 1A 1A E4 E5 E6 6D 03 04 B4 2F 05 D2 1A
1B B0 6E 08 E1 62 E2 AD E3 8D 31 66 B3 60 01 79 E2 AD E3 8D 31 5F
E8 B4 7A 02 60 01 14 2C 03 11 19 08 E1 62 02 79 EA EB AF 6E 14 7A
02 ED EB B0 6E 14 7A 02 03 16 7B 04 2C 03 11 19 07 E2 AD F2 63 31
32 0E 1B 1C 26 1A 80 96 16 01 1A 80 7C E1 62 AD 60 01 79 EF AE 6A
18 6A 19 7A 04 7A 01 6D 03 11 E2 AD F2 8E 31 55 0E 1B 1B 80 73 E2
AD E3 62 31 32 B0 AB A2 7B 02 AA E2 AF F4 31 31 79 E2 AF F4 AD 31
32 16 02 E2 AD F5 71 31 6E 1E 0E 1F 21 39 E2 AD 64 20 63 31 32 6A
18 92 00 25 AA E2 AF 64 21 31 31 21 FF A2 93 00 64 22 AB 31 35 16
01 1C 0B 93 00 64 22 AB E3 63 31 32 16 01 82 00 91 00 5B 64 23 64
24 2F 25 16 01 64 26 E2 AE 64 27 71 31 37 05 71 53 E2 AE 64 27 AD
31 32 16 01 15 19 07 64 23 D8 2F 25 19 07
)
VENV-SEARCH
"~S is neither declared nor bound, it will be treated as if it were declared SPECIAL."
"~S ist weder deklariert noch gebunden, behandle es als SPECIAL-deklarierte Variable."
"~S n'est ni déclaré ni lié, et va être traité comme étant déclaré SPECIAL."
LANGUAGE C-WARN SPECIAL
#S(HASH-TABLE EQ (T . 95.) (LOCAL . 50.) (SPECIAL . 17.))
MAKE-SPECIAL-VAR VARSET VAR 3.
"The constant ~S may not be assigned to. The assignment will be ignored."
"Der Konstante ~S kann nicht zugewiesen werden. Die Zuweisung wird ignoriert."
"Rien ne peut être assigné à la constante ~S. L'assignation est ignorée."
((VALUES1)) SETVALUE MK-ANODE (PUSH) CONST NEW-CONST (PUSH) ((SVSET)) SET
*VENVC* *STACKZ* 5. *NO-CODE* 7. 10. STACKZ-FUN *FUNC* 9. 11. FNODE
C-VARSET "INVISIBLE" COMPILER-ERROR
#Y(C-VARSET-1
#19Y(00 01 00 00 00 02 93 01 D8 AB D9 71 31 6A 02 30 BA 19 03) VAR 10.
*STACKZ*
)
8.
) )
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-FUNNAME-CONST REMOVE-OLD-DEFINITIONS
#Y(MAKE-FUNNAME-CONST
#36Y(00 01 00 00 00 02 9C 1F 16 9C 5B 77 D9 DA DB AD 6E 04 DD DC DE B1 7A
02 7A 02 2C 06 07 19 03 AB 2E 00 19 02
)
NEW-CONST :HORIZONT :ALL :VALUE GET-SETF-SYMBOL :FORM QUOTE MAKE-CONST
) )
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-NORMAL-FUNCTION-CALL
#95Y(00 01 00 00 00 02 6A 00 D9 2F 02 0E 00 78 71 48 0E 03 10 03 0E 00 78
DC 7A 01 92 01 19 93 01 82 02 AA DD 6F 06 AA 83 02 DF 83 02 D9 0E 03
5C 0F 03 16 02 91 01 67 A0 25 08 09 CC 1A 0A CD 1A 07 CE 1A 04 E4 B0
60 02 14 B2 6E 0D 7A 01 72 02 23 83 00 E4 E6 AC 71 4A 2C 03 0F 16 02
11 19 03
)
*FORM* 1. TEST-LIST *STACKZ* (CALLP) ONE C-FORM (PUSH)
#S(HASH-TABLE EQ (2. . 7.) (1. . 4.) (0. . 1.)) (CALL0) (CALL1) (CALL2)
CALL MAKE-FUNNAME-CONST (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FDESCR-SIGNATURE REMOVE-OLD-DEFINITIONS
#Y(FDESCR-SIGNATURE
#82Y(00 01 00 00 00 02 9C 5B 1B 3C 93 01 DA AB DB 71 31 DA AC DC 71 31 DA
AD DD 71 31 DA AE DE 71 31 DA AF DF 71 31 DA B0 E0 71 31 3F 06 19 03
9C 5B 5B 43 41 0D B6 71 48 B6 71 48 B4 C4 59 58 14 B4 B4 B1 3F 06 19
0F 9C 5B 77 23 00 62 9C 5B 5B 43 19 02
)
LABELS 0. FNODE 10. 11. 12. 13. 14. 15.
) )
#Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
TEST-ARGUMENT-SYNTAX REMOVE-OLD-DEFINITIONS
#Y(TEST-ARGUMENT-SYNTAX
#253Y(00 09 00 00 00 00 B3 8E 0D 08 B3 37 01 30 A0 5B 1C 0B D8 D9 DA 6D
03 03 B2 B5 2C 03 04 B3 71 48 B1 B1 72 02 35 91 0A 06 B2 AC 90 01
31 37 91 06 09 91 05 06 AB AB 90 01 31 2B 92 05 80 40 AB AB 8F 01
31 3D 91 06 3D AB AB 81 01 36 01 AA B6 7F 9F 0B AB 8D 96 80 63 E4
E5 E6 6D 03 03 B4 B7 2C 03 08 00 19 0C DD DE DF 6D 03 03 B4 AD B7
91 0A 01 A4 14 B7 B0 71 03 B8 B1 2C 08 08 1A 64 CC 19 0C CD 19 0C
CE 19 0C CE 19 10 E9 EA EB 6D 03 03 93 04 B9 2C 03 08 CE 19 10 CE
19 10 7D 02 92 02 80 41 1A 80 48 EE EF F0 6D 03 03 AB B8 B4 71 48
03 19 59 14 B5 2C 05 04 19 0F B5 AE 62 92 02 36 93 02 AA 88 0F 41
AA 2E 10 F6 14 8E 8D FF BB AA 24 14 0D 9E 5B 77 88 0F 40 9E 5B 77
87 10 FF BC 91 02 0A AA B3 ED 37 02 8B B7 02 9B F7 16 01 9D 5B 5B
F8 91 02 4A 91 00 FF AB CD 19 0F
)
"argument list to function ~S is dotted: ~S"
"Argumentliste zu Funktion ~S ist dotted: ~S"
"Liste pointée d'arguments pour la fonction ~S : ~S" LANGUAGE C-ERROR
"~S called with ~S~:[~; or more~] arguments, but it requires ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
"~S mit ~S~:[~; oder mehr~] Argumenten aufgerufen, braucht aber ~:[~:[~S bis ~S~;~S~]~;mindestens ~*~S~] Argumente."
"~S est appelé avec ~S~[; ou plus~] d'arguments mais a besoin ~:[de ~:[~S à ~S~;~S~]~;d'au moins ~*~S~] arguments."
C-WARN NO-KEYS STATIC-KEYS DYNAMIC-KEYS
"keyword arguments to function ~S should occur pairwise: ~S"
"Keyword-Argumente zu Funktion ~S sind nicht paarig: ~S"
"Les arguments de genre mot-clé pour la fonction ~S ne sont pas par paires : ~S"
C-CONSTANTP C-CONSTANT-VALUE
"argument ~S to function ~S is not a keyword"
"Das Argument ~S zu Funktion ~S ist kein Keyword."
"L'argument ~S pour la fonction ~S n'est pas un mot-clé."
:ALLOW-OTHER-KEYS #.#'EQ
"keyword ~S is not allowed for function ~S.~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
"Keyword ~S ist bei Funktion ~S nicht erlaubt.~%Erlaubt ~:[sind nur ~{~S~#[~; und ~S~:;, ~]~}~;ist nur ~{~S~}~]."
"L'argument mot-clé ~S n'est pas permis pour la fonction ~S.~%Seul~:[s sont permis ~{~S~#[~; et ~S~:;, ~]~}~; est permis ~{~S~}~]."
1.
) )
#Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-DIRECT-FUNCTION-CALL
#1001Y(00 0A 00 00 00 00 62 92 03 04 A4 25 01 24 C3 1A 22 7D 00 C5 1A 1D
C6 1A 1A C7 1A 17 02 10 07 00 10 06 B3 35 00 12 02 E0 B7 B7 32 02
23 79 2E 09 19 0D C8 14 0E 06 1B 04 9B 5B 1C 60 B6 71 48 B4 B4 72
02 35 AC 62 0E 0A 10 0A E3 B1 B1 72 01 34 1A 80 F6 EA EB 2F 14 92
0D 80 52 1A 80 4B AB 31 97 1A 0E AF B1 72 01 36 93 13 E4 6F 09 91
10 6E 9C 14 0E 0A 5C 0F 0A BA AC BD AE 72 01 34 6D 03 16 B1 E5 AD
E6 71 31 2F 0F FD AB 83 06 B1 E5 AC E6 71 31 2F 0F FD AA 83 06 16
03 92 0D 82 D4 1A 81 37 91 0B FF AD 92 0D 04 EA ED 2F 14 AF B1 8F
01 32 FF AF 0E 0A 10 0A C0 92 00 21 93 00 82 01 E4 6F 09 B3 E5 AC
E6 71 31 2F 0F FF AA 83 08 16 01 EF 83 07 E9 0E 0A 5C 0F 0A 91 00
5F 93 16 E4 6F 09 B3 E5 AC E6 71 31 2F 0F FF AA 83 08 16 01 F0 B5
B5 72 01 36 7A 02 83 07 16 01 11 F1 83 03 D4 1A 80 A1 AF B1 72 01
36 F2 AB 7A 02 83 04 AA 0E 0A 5C 0F 0A 16 01 92 0E 80 BA 1A 80 42
F4 83 03 F5 83 03 D4 1A 80 7D 93 15 82 16 AA E4 6F 09 B2 E5 AC E6
71 31 2F 0F FE AA 83 07 16 02 E8 83 05 E9 0E 0A 5C 0F 0A 84 01 AB
AB 90 01 32 59 16 02 91 12 FF 4D AF B1 8F 01 30 FF A8 92 0E 80 75
91 0B 80 4D 92 13 FF B6 0E 0A 10 0A C0 92 00 22 93 00 82 01 E4 6F
09 B3 E5 AC E6 71 31 2F 0F FF AA 83 08 16 01 64 1E 83 07 E9 0E 0A
5C 0F 0A 91 00 5E 64 1F B5 B5 72 01 36 7A 02 83 07 16 01 11 64 20
83 03 D4 14 0E 0A 5C 0F 0A 92 0D 81 C4 1A 28 92 13 21 93 13 82 14
E4 6F 09 AF E5 AC E6 71 31 2F 0F FB AA 83 04 16 01 F3 83 03 E9 0E
0A 5C 0F 0A 91 13 5F 92 0D 81 9A B6 71 48 AA 62 B9 1A 13 CF 1A 80
41 93 00 AA 85 04 14 63 7A 03 83 02 16 01 82 00 9B 20 6E 16 01 AA
30 A7 16 01 F6 62 92 16 80 49 93 16 82 17 6E 21 AA AD 64 22 37 02
70 BE 9B 5B 5B 77 93 19 82 1A E3 0E 0A 5C 10 0A AD 91 05 FF BC 00
14 6F 09 B9 E5 AC E6 71 31 2F 0F 09 0F 63 A2 5B 77 AC 6A 0A 7A 04
83 08 16 01 11 9D 5B 78 62 30 AC 16 04 91 16 FF B7 AA 80 4A 00 E3
E3 62 AD 92 00 80 5A 93 00 9B 5A 1C 80 4B 9B 5B 5A 1C 0D 9B 5B 77
B2 E9 B1 72 02 36 90 01 2D 39 9B 5B 5B 77 B0 1A 0F 16 02 1A 2E AB
9C 5A 5B 5B 77 8A 23 73 82 00 AA 9F 22 71 16 02 9B 5B 5B 5B 77 AF
30 AC 9B 5B 5B 77 83 0B 9B 5B 5A 1C 06 64 24 83 0B 84 04 AA 62 30
AC 16 01 82 00 91 00 FF A6 16 01 AD 80 4A 03 14 92 00 80 59 93 00
9B 5A 1C 80 4A 9B 5B 5A 1C 08 9B 5B 77 AE 90 01 2D 3D 9B 5B 5B 77
B0 1A 0F 16 02 1A 32 AB 9C 5A 5B 5B 77 8A 23 73 82 00 AA 9F 22 71
16 02 9B 5B 5A 1C 06 64 25 83 02 84 03 9B 5B 5B 5B 77 B2 AF 72 01
36 30 AC 9B 5B 5B 77 83 02 AA 62 30 AC 16 01 82 00 91 00 FF A7 16
01 AD 80 4A 03 AF AC 72 01 36 AA AE 90 01 30 0A F2 AB AF 72 01 36
7A 02 83 0A AE 62 1A 28 86 01 00 5A 1C 20 9B 5B 5B 5B 77 AD 30 AC
9B 5B 5B 77 83 0C 9B 5B 5A 1C 0D 64 26 9C 5B 77 B0 72 01 36 7A 02
83 0C 82 01 AB 8C 96 54 16 03 AA B4 7F A6 09 16 05 AA 0E 0A 5C 0F
0A 16 01 AD B5 75 00 7F A6 03 11 92 05 80 5E 64 27 AB 90 00 28 80
56 62 AB 62 1A 0F 86 01 00 E5 AB 8E 35 05 AA 6E 28 83 02 82 01 AB
8C 96 6D 16 02 AA 80 4A 00 62 46 29 30 AC 2B 2A 01 10 2B C0 A3 36
00 42 11 F9 47 64 2C 62 AC 1A 0D 93 00 64 2D AB 7A 02 83 02 16 01
82 00 9B 20 70 16 01 AA 30 A7 16 01 79 2E 2E 19 13 1B 5C 16 02 64
2F B9 7A 02 AC AC 2C 03 30 19 11
)
(T . T)
#S(HASH-TABLE EQ (LOG10 . 12.) (LOG2 . 12.) (BYTE-POSITION . 12.)
(BYTE-SIZE . 12.) (BYTE . 12.) (FLOAT . 12.) (ATANH . 12.)
(ACOSH . 12.) (ASINH . 12.) (TANH . 12.) (COSH . 12.) (SINH . 12.)
(ATAN . 12.) (ACOS . 12.) (ASIN . 12.) (CIS . 12.) (TAN . 12.)
(COS . 12.) (SIN . 12.) (SIGNUM . 12.) (PHASE . 12.) (ABS . 12.)
(SQRT . 12.) (LOG . 12.) (EXPT . 12.) (EXP . 12.) (FROUND . 12.)
(FTRUNCATE . 12.) (FCEILING . 12.) (FFLOOR . 12.) (GENSYM . 12.)
(SPECIAL-VARIABLE-P . 12.) (KEYWORDP . 12.) (SYMBOL-PLIST . 12.)
(SYMBOL-PACKAGE . 12.) (GET-PROPERTIES . 12.) (GETF . 12.) (GET . 12.)
(FILE-LENGTH . 12.) (STREAM-ELEMENT-TYPE . 12.)
(OUTPUT-STREAM-P . 12.) (INPUT-STREAM-P . 12.) (OPEN-STREAM-P . 12.)
(MAKE-BUFFERED-OUTPUT-STREAM . 12.) (MAKE-BUFFERED-INPUT-STREAM . 12.)
(MAKE-STRING-PUSH-STREAM . 12.) (MAKE-STRING-OUTPUT-STREAM . 12.)
(STRING-INPUT-STREAM-INDEX . 12.) (MAKE-STRING-INPUT-STREAM . 12.)
(ECHO-STREAM-OUTPUT-STREAM . 12.) (ECHO-STREAM-INPUT-STREAM . 12.)
(MAKE-ECHO-STREAM . 12.) (TWO-WAY-STREAM-OUTPUT-STREAM . 12.)
(TWO-WAY-STREAM-INPUT-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.)
(CONCATENATED-STREAM-STREAMS . 12.) (MAKE-CONCATENATED-STREAM . 12.)
(BROADCAST-STREAM-STREAMS . 12.) (MAKE-BROADCAST-STREAM . 12.)
(SYNONYM-STREAM-SYMBOL . 12.) (MAKE-SYNONYM-STREAM . 12.)
(CONCATENATE . 12.) (REVERSE . 12.) (LENGTH . 12.) (COPY-SEQ . 12.)
(SUBSEQ . 12.) (ELT . 12.) (SEQUENCEP . 12.)
(CLOS:SLOT-EXISTS-P . 12.) (CLOS::ALLOCATE-STD-INSTANCE . 12.)
(%MAKE-CLOSURE . 12.) (MAKE-CODE-VECTOR . 12.) (CLOSURE-CONSTS . 12.)
(CLOSURE-CODEVEC . 12.) (CLOSURE-NAME . 12.) (%STRUCTURE-TYPE-P . 12.)
(%COPY-STRUCTURE . 12.) (%MAKE-STRUCTURE . 12.) (%STRUCTURE-REF . 12.)
(%RECORD-LENGTH . 12.) (%RECORD-REF . 12.) (COERCE . 12.)
(CLOS:CLASS-OF . 12.) (CLOS::CLASS-P . 12.) (TYPE-OF . 12.)
(COMMONP . 12.) (CLOS::GENERIC-FUNCTION-P . 12.)
(COMPILED-FUNCTION-P . 12.) (EQUALP . 12.) (EQUAL . 12.)
(FILE-AUTHOR . 12.) (FILE-WRITE-DATE . 12.) (DIRECTORY . 12.)
(PROBE-FILE . 12.) (TRUENAME . 12.) (NAMESTRING . 12.)
(MAKE-PATHNAME . 12.) (ENOUGH-NAMESTRING . 12.)
(MERGE-PATHNAMES . 12.) (HOST-NAMESTRING . 12.)
(DIRECTORY-NAMESTRING . 12.) (FILE-NAMESTRING . 12.)
(PATHNAME-VERSION . 12.) (PATHNAME-TYPE . 12.) (PATHNAME-NAME . 12.)
(PATHNAME-DIRECTORY . 12.) (PATHNAME-DEVICE . 12.)
(PATHNAME-HOST . 12.) (PATHNAME . 12.) (PARSE-NAMESTRING . 12.)
(FIND-ALL-SYMBOLS . 12.) (FIND-SYMBOL . 12.) (LIST-ALL-PACKAGES . 12.)
(PACKAGE-SHADOWING-SYMBOLS . 12.) (PACKAGE-USED-BY-LIST . 12.)
(PACKAGE-USE-LIST . 12.) (PACKAGE-NICKNAMES . 12.)
(PACKAGE-NAME . 12.) (FIND-PACKAGE . 12.) (%%TIME . 12.)
(GET-INTERNAL-REAL-TIME . 12.) (GET-INTERNAL-RUN-TIME . 12.)
(GET-UNIVERSAL-TIME . 12.) (PAIRLIS . 12.) (TAILP . 12.) (LDIFF . 12.)
(BUTLAST . 12.) (REVAPPEND . 12.) (COPY-TREE . 12.) (COPY-ALIST . 12.)
(COPY-LIST . 12.) (APPEND . 12.) (LAST . 12.) (NTHCDR . 12.)
(REST . 12.) (TENTH . 12.) (NINTH . 12.) (EIGHTH . 12.)
(SEVENTH . 12.) (SIXTH . 12.) (FIFTH . 12.) (FOURTH . 12.)
(THIRD . 12.) (SECOND . 12.) (FIRST . 12.) (NTH . 12.)
(LIST-LENGTH . 12.) (CDDDDR . 12.) (CDDDAR . 12.) (CDDADR . 12.)
(CDDAAR . 12.) (CDADDR . 12.) (CDADAR . 12.) (CDAADR . 12.)
(CDAAAR . 12.) (CADDDR . 12.) (CADDAR . 12.) (CADADR . 12.)
(CADAAR . 12.) (CAADDR . 12.) (CAADAR . 12.) (CAAADR . 12.)
(CAAAAR . 12.) (CDDDR . 12.) (CDDAR . 12.) (CDADR . 12.) (CDAAR . 12.)
(CADDR . 12.) (CADAR . 12.) (CAADR . 12.) (CAAAR . 12.) (CDDR . 12.)
(CDAR . 12.) (CADR . 12.) (CAAR . 12.) (CDR . 12.) (CAR . 12.)
(LINE-POSITION . 12.) (GET-DISPATCH-MACRO-CHARACTER . 12.)
(GET-MACRO-CHARACTER . 12.) (SXHASH . 12.) (HASH-TABLE-ITERATOR . 12.)
(HASH-TABLE-SIZE . 12.) (HASH-TABLE-REHASH-THRESHOLD . 12.)
(HASH-TABLE-REHASH-SIZE . 12.) (HASH-TABLE-COUNT . 12.)
(GETHASH . 12.) (MAKE-HASH-TABLE . 12.) (CONSTANTP . 12.)
(MACRO-FUNCTION . 12.) (VALUES-LIST . 12.) (FBOUNDP . 12.)
(BOUNDP . 12.) (SYMBOL-FUNCTION . 12.) (SYMBOL-VALUE . 12.)
(MAKE-SYMBOL . 12.) (STRING-CONCAT . 12.) (SUBSTRING . 12.)
(NAME-CHAR . 12.) (STRING . 12.) (STRING-CAPITALIZE . 12.)
(STRING-DOWNCASE . 12.) (STRING-UPCASE . 12.) (STRING-BOTH-TRIM . 12.)
(SEARCH-STRING-EQUAL . 12.) (SEARCH-STRING= . 12.)
(STRING-NOT-LESSP . 12.) (STRING-NOT-GREATERP . 12.)
(STRING-GREATERP . 12.) (STRING-LESSP . 12.) (STRING-NOT-EQUAL . 12.)
(STRING-EQUAL . 12.) (STRING>= . 12.) (STRING<= . 12.) (STRING> . 12.)
(STRING< . 12.) (STRING/= . 12.) (STRING= . 12.) (SCHAR . 12.)
(CHAR . 12.) (CHARACTER . 12.) (MAKE-ARRAY . 12.) (FILL-POINTER . 12.)
(ARRAY-HAS-FILL-POINTER-P . 12.) (SBIT . 12.) (BIT . 12.)
(ARRAY-ROW-MAJOR-INDEX . 12.) (ARRAY-IN-BOUNDS-P . 12.)
(ARRAY-TOTAL-SIZE . 12.) (ARRAY-DIMENSIONS . 12.)
(ARRAY-DIMENSION . 12.) (ROW-MAJOR-AREF . 12.) (SVREF . 12.)
(AREF . 12.) (SUBR-INFO . 12.) (DECIMAL-STRING . 9.)
(SYMBOL-NAME . 9.) (MAKE-SYMBOL-MACRO . 9.) (MAKE-LOAD-TIME-EVAL . 9.)
(SOFTWARE-VERSION . 9.) (SOFTWARE-TYPE . 9.)
(LISP-IMPLEMENTATION-VERSION . 9.) (LISP-IMPLEMENTATION-TYPE . 9.)
(ACONS . 9.) (MAKE-LIST . 9.) (LIST* . 9.) (LIST . 9.) (CONS . 9.)
(VALUES . 9.) (MAKE-STRING . 9.) (VECTOR . 9.) (EXQUO . 4.) (! . 4.)
(DEPOSIT-FIELD . 4.) (DPB . 4.) (MASK-FIELD . 4.) (LDB-TEST . 4.)
(LDB . 4.) (INTEGER-LENGTH . 4.) (LOGCOUNT . 4.) (ASH . 4.)
(LOGBITP . 4.) (LOGTEST . 4.) (LOGNOT . 4.) (BOOLE . 4.)
(LOGORC2 . 4.) (LOGORC1 . 4.) (LOGANDC2 . 4.) (LOGANDC1 . 4.)
(LOGNOR . 4.) (LOGNAND . 4.) (LOGEQV . 4.) (LOGAND . 4.) (LOGXOR . 4.)
(LOGIOR . 4.) (IMAGPART . 4.) (REALPART . 4.) (COMPLEX . 4.)
(INTEGER-DECODE-FLOAT . 4.) (FLOAT-PRECISION . 4.) (FLOAT-DIGITS . 4.)
(FLOAT-SIGN . 4.) (FLOAT-RADIX . 4.) (SCALE-FLOAT . 4.)
(DECODE-FLOAT . 4.) (REM . 4.) (MOD . 4.) (ROUND . 4.) (TRUNCATE . 4.)
(CEILING . 4.) (FLOOR . 4.) (DENOMINATOR . 4.) (NUMERATOR . 4.)
(RATIONALIZE . 4.) (RATIONAL . 4.) (ISQRT . 4.) (LCM . 4.) (GCD . 4.)
(CONJUGATE . 4.) (1- . 4.) (1+ . 4.) (/ . 4.) (* . 4.) (- . 4.)
(+ . 4.) (MIN . 4.) (MAX . 4.) (>= . 4.) (<= . 4.) (> . 4.) (< . 4.)
(/= . 4.) (= . 4.) (EVENP . 4.) (ODDP . 4.) (MINUSP . 4.) (PLUSP . 4.)
(ZEROP . 4.) (CLOS::STD-INSTANCE-P . 4.) (SYMBOL-MACRO-P . 4.)
(SIMPLE-BIT-VECTOR-P . 4.) (SIMPLE-STRING-P . 4.)
(SIMPLE-VECTOR-P . 4.) (VECTORP . 4.) (BIT-VECTOR-P . 4.)
(SIMPLE-ARRAY-P . 4.) (ARRAYP . 4.) (PACKAGEP . 4.) (FUNCTIONP . 4.)
(CHARACTERP . 4.) (LOGICAL-PATHNAME-P . 4.) (HASH-TABLE-TEST . 4.)
(PATHNAMEP . 4.) (HASH-TABLE-P . 4.) (READTABLEP . 4.)
(RANDOM-STATE-P . 4.) (STRING-STREAM-P . 4.) (ECHO-STREAM-P . 4.)
(TWO-WAY-STREAM-P . 4.) (CONCATENATED-STREAM-P . 4.)
(BROADCAST-STREAM-P . 4.) (SYNONYM-STREAM-P . 4.) (FILE-STREAM-P . 4.)
(STREAMP . 4.) (COMPLEXP . 4.) (REALP . 4.) (LONG-FLOAT-P . 4.)
(DOUBLE-FLOAT-P . 4.) (SINGLE-FLOAT-P . 4.) (SHORT-FLOAT-P . 4.)
(FLOATP . 4.) (RATIONALP . 4.) (FIXNUMP . 4.) (INTEGERP . 4.)
(LISTP . 4.) (CLOSUREP . 4.) (NOT . 4.) (NULL . 4.) (NUMBERP . 4.)
(STRINGP . 4.) (SYMBOLP . 4.) (ATOM . 4.) (CONSP . 4.) (EQL . 4.)
(EQ . 4.) (IDENTITY . 4.) (ENDP . 4.) (SPECIAL-FORM-P . 4.)
(CHAR-BIT . 4.) (CHAR-NAME . 4.) (INT-CHAR . 4.) (CHAR-INT . 4.)
(DIGIT-CHAR . 4.) (CHAR-DOWNCASE . 4.) (CHAR-UPCASE . 4.)
(MAKE-CHAR . 4.) (CODE-CHAR . 4.) (CHAR-FONT . 4.) (CHAR-BITS . 4.)
(CHAR-CODE . 4.) (CHAR-NOT-LESSP . 4.) (CHAR-NOT-GREATERP . 4.)
(CHAR-GREATERP . 4.) (CHAR-LESSP . 4.) (CHAR-NOT-EQUAL . 4.)
(CHAR-EQUAL . 4.) (CHAR>= . 4.) (CHAR<= . 4.) (CHAR> . 4.)
(CHAR< . 4.) (CHAR/= . 4.) (CHAR= . 4.) (ALPHANUMERICP . 4.)
(DIGIT-CHAR-P . 4.) (BOTH-CASE-P . 4.) (LOWER-CASE-P . 4.)
(UPPER-CASE-P . 4.) (ALPHA-CHAR-P . 4.) (STRING-CHAR-P . 4.)
(GRAPHIC-CHAR-P . 4.) (STANDARD-CHAR-P . 4.) (ADJUSTABLE-ARRAY-P . 4.)
(ARRAY-RANK . 4.) (ARRAY-ELEMENT-TYPE . 4.) (%FUNTABREF . 4.)
)
(NIL) (NIL) (T) (T . T) *FOR-VALUE* *NO-CODE* PROGN C-FORM *STACKZ* 0.
ONE ANODE 2. SECLASS-OR-2 (PUSH) 1. C-DIRECT-FUNCTION-CALL "APPLY-SUBR"
COMPILER-ERROR "APPLY-KEY" C-UNLIST (PUSH) LIST* (PUSH) PUSH-UNBOUND
(PUSH) (NIL) (PUSH) (PUSH) LIST (PUSH) C-CONSTANT-VALUE #.#'EQ
ANODES-COMMUTE (PUSH) (PUSH) STORE
#Y(C-DIRECT-FUNCTION-CALL-1
#20Y(00 01 00 00 00 02 D8 AC 31 35 58 1D 05 AB 2E 01 19 02 19 02)
ANODE ANODE-CONSTANTP
)
ANODE-CONSTANT-VALUE TRY-EVAL
#Y(C-DIRECT-FUNCTION-CALL-2 #9Y(00 00 00 00 01 16 00 48 00) NIL)
*ERROR-HANDLER* VALUES QUOTE C-GLOBAL-FUNCTION-CALL-FORM DIRECT-CALL
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-UNLIST REMOVE-OLD-DEFINITIONS
#Y(C-UNLIST
#39Y(00 03 00 00 00 04 91 03 15 DE DF C9 14 AF AF 7A 03 60 01 14 2C 03 04
19 04 D9 DA C6 1A 75 AC 23 00 77 D9 DD C4 1A 65
)
0. UNLIST* (NIL) ((PUSH)) MK-ANODE (T . T) UNLIST (T . T)
) )
#Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CCLOSURE-CALL-CODE-PRODUCER REMOVE-OLD-DEFINITIONS
#Y(CCLOSURE-CALL-CODE-PRODUCER
#63Y(00 07 00 00 00 00 00 2A 02 7E 08 00 00 7E 03 00 01 B1 0E 00 21 09 AA
2B 06 01 19 09 C5 1A 0A 9B 2A 01 D9 B2 B2 91 08 74 C6 14 B1 71 48 72
04 35 6A 04 7A 03 60 01 0B 00 00 AA 2B 05 01 19 0A
)
*FUNC* JSR 1. 0. *FUNC-START-LABEL*
#Y(CCLOSURE-CALL-CODE-PRODUCER-1 #11Y(00 00 00 00 00 01 07 00 01 19 01)
NIL
)
#Y(CCLOSURE-CALL-CODE-PRODUCER-2
#29Y(00 00 00 00 00 01 D9 68 00 01 7A 02 DA 6F 03 07 00 02 1B 06 C8 14
60 02 19 01 C7 1A 78
)
NIL FUNCTION ONE C-FORM (CALLCKEY) (CALLC)
) ) )
#Y(#:TOP-LEVEL-FORM-134 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
#Y(C-GLOBAL-FUNCTION-CALL-FORM
#17Y(00 01 00 00 00 02 9C 10 00 0E 00 77 2E 01 11 19 02) *FORM*
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-GLOBAL-FUNCTION-CALL
#843Y(00 01 00 00 00 02 6A 00 D9 2F 02 0E 03 1C 82 F1 AB 8B 53 13 AB 6A
04 DD 37 02 8B B7 0A AB 6A 06 DD 37 02 30 BB 0F 06 AB 24 07 13 6A
00 71 48 E0 90 01 2D 0A 0E 00 5B 77 AA 87 09 27 16 01 AB 23 10 05
AB 24 11 80 52 98 09 0E 00 78 90 00 28 80 48 E2 EA AD 23 10 1F AD
23 11 1E 00 14 62 0E 00 78 1A 27 E2 E3 E4 E5 AE 6E 0E 7A 02 7A 02
7A 03 2E 0F 16 01 1A 48 D6 1A 63 D7 1A 60 93 00 E5 AB 6E 0E 7A 02
83 02 16 01 82 00 9B 20 6F 16 01 AA 30 A7 16 01 79 7A 03 2E 0F 9C
25 15 82 63 98 09 0E 00 78 90 00 28 82 59 AB 62 0E 00 78 1A 82 41
A4 25 18 81 FE A4 25 19 10 03 1A 1A 0E 03 1B 1A 0A 03 1E 1A 21 2D
22 19 0B 03 1C 14 0E 1D 1B 04 9B 5B 1C 6D B4 24 1F 15 6A 1D 24 20
10 B1 64 21 8F 01 2D 61 03 23 14 A4 79 2E 0F 19 0B AA 62 0E 24 10
24 92 0D 2C 1A 0D 64 27 83 03 D9 0E 24 5C 0F 24 92 0D 1D 93 0D 82
0E 64 20 6F 0F AF 64 25 AC E0 71 31 2F 26 FB AA 83 04 16 01 91 0D
59 91 0D 63 AD 04 10 25 28 80 FF 03 29 1A 80 FE 03 2A 1A 80 F9 03
2B 1A 80 F4 03 2C 1A 80 EF 03 2D 1A 80 EA 03 2E 1A 80 E5 03 2F 1A
80 E0 03 30 1A 80 DB 03 31 1A 80 D6 03 32 1A 80 D1 03 33 1A 80 CC
03 34 1A 80 C7 03 35 1A 80 C2 03 36 1A 80 BD 03 37 1A 80 B8 03 38
1A 80 B3 03 39 1A 80 AE 03 3A 1A 80 A9 03 3B 1A 80 A4 03 3C 1A 80
9F 03 3D 1A 80 9A 03 3E 1A 80 95 03 3F 1A 80 90 03 40 1A 80 8B 03
41 1A 80 86 03 42 1A 80 81 03 43 1A 80 7C 03 44 1A 80 77 03 45 1A
80 72 03 46 1A 80 6D 03 47 1A 80 68 03 48 1A 80 63 03 49 1A 80 5E
03 4A 1A 80 59 03 4B 1A 80 54 03 4C 1A 80 4F 03 4D 1A 80 4A 03 4E
1A 80 45 03 4F 1A 80 40 B7 23 21 72 B7 23 01 73 64 50 03 51 1A 10
03 52 1A 2E 03 53 1A 2A B7 8E 93 0C 64 54 03 55 14 B9 7A 02 60 02
1A 1A 03 56 1A 16 03 57 1A 12 B7 23 01 78 64 58 96 0E 7A 02 60 01
1A 04 64 59 2E 5A 14 7F A6 03 11 64 5B B7 7A 02 AC AC 2C 03 5C 19
0D AE B1 90 01 31 0F 91 02 FE 6E B0 AF AF 72 02 35 8F 01 31 FE 63
64 5D 64 5E 64 5F 6D 03 60 B4 B2 AF B1 03 21 59 14 B3 B4 B4 72 02
35 2C 07 61 B3 2E 62 19 0A B5 2E 67 1A 24 B3 62 B7 B3 B3 B3 B3 B4
63 00 2A 01 92 0E 6C 64 68 64 21 BE BD BD 72 02 36 72 01 33 B7 6A
69 72 01 36 60 03 14 04 16 25 6A 04 03 6B 1A 01 00 5C 0B 00 00 AA
2B 6C 01 F6 2C 0A 6D 19 0C B3 6A 63 37 01 70 67 92 00 80 83 B2 62
B6 B2 B2 B2 B2 B3 B3 6D 09 64 AA 23 65 FF A7 AA 23 66 FF A2 B5 2E
62 19 0C B4 B3 62 AD 62 2C 05 74 19 0B 93 00 E5 AB 6E 0E 7A 02 83
02 16 01 82 00 9B 20 6F 16 01 AA 30 A7 16 01 79 0E 16 5C 0F 16 0E
00 78 AA 71 48 AD 87 17 3B AD 30 01 41 06 92 05 05 B3 A1 21 FD 98
0E 03 1C 0B B3 6A 6E DD 37 02 30 BE 5B 1B 09 B3 6E 6F 64 70 37 01
31 84 14 9B 1F 0D 64 71 64 72 9D 79 7A 02 B2 89 73 FF 98 B4 2E 62
19 0B AD 2E 62 19 04
)
*FORM* 1. TEST-LIST *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
*UNKNOWN-FUNCTIONS* PROCLAIM 2. C-CONSTANTP EVAL-WHEN (COMPILE)
C-PROCLAIM QUOTE C-CONSTANT-VALUE C-FORM PROVIDE REQUIRE (COMPILE)
C-PROVIDE C-REQUIRE
#S(HASH-TABLE EQ (IMPORT . 2.) (UNUSE-PACKAGE . 2.) (USE-PACKAGE . 2.)
(UNEXPORT . 2.) (EXPORT . 2.) (SHADOWING-IMPORT . 2.) (SHADOW . 2.)
(IN-PACKAGE . 2.) (%IN-PACKAGE . 2.) (MAKE-PACKAGE . 2.)
)
*PACKAGE-TASKS* DECLARED-NOTINLINE
#S(HASH-TABLE EQ (LIST* . 394.) (LIST . 394.) (SYMBOL-FUNCTION . 394.)
(EQ . 394.) (%SVSTORE . 394.) (VALUES-LIST . 394.) (CONSP . 394.)
(ATOM . 394.) (CDDDDR . 394.) (CDDDAR . 394.) (CDDADR . 394.)
(CDDAAR . 394.) (CDADDR . 394.) (CDADAR . 394.) (CDAADR . 394.)
(CDAAAR . 394.) (CADDDR . 394.) (CADDAR . 394.) (CADADR . 394.)
(CADAAR . 394.) (CAADDR . 394.) (CAADAR . 394.) (CAAADR . 394.)
(CAAAAR . 394.) (FOURTH . 394.) (THIRD . 394.) (SECOND . 394.)
(CDDDR . 394.) (CDDAR . 394.) (CDADR . 394.) (CDAAR . 394.)
(CADDR . 394.) (CADAR . 394.) (CAADR . 394.) (CAAAR . 394.)
(CDDR . 394.) (CDAR . 394.) (CADR . 394.) (CAAR . 394.)
(VALUES . 394.) (SVREF . 394.) (CONS . 394.) (NULL . 394.)
(NOT . 394.) (REST . 394.) (FIRST . 394.) (CDR . 394.) (CAR . 394.)
)
#S(HASH-TABLE EQ (SYMBOL-FUNCTION . 5.) (SVREF . 5.) (VALUES-LIST . 5.)
(CDDDDR . 5.) (CDDDAR . 5.) (CDDADR . 5.) (CDDAAR . 5.) (CDADDR . 5.)
(CDADAR . 5.) (CDAADR . 5.) (CDAAAR . 5.) (CADDDR . 5.) (CADDAR . 5.)
(CADADR . 5.) (CADAAR . 5.) (CAADDR . 5.) (CAADAR . 5.) (CAAADR . 5.)
(CAAAAR . 5.) (FOURTH . 5.) (THIRD . 5.) (SECOND . 5.) (CDDDR . 5.)
(CDDAR . 5.) (CDADR . 5.) (CDAAR . 5.) (CADDR . 5.) (CADAR . 5.)
(CAADR . 5.) (CAAAR . 5.) (CDDR . 5.) (CDAR . 5.) (CADR . 5.)
(CAAR . 5.) (REST . 5.) (FIRST . 5.) (CDR . 5.) (CAR . 5.)
(LIST* . 1.) (LIST . 1.) (EQ . 1.) (CONSP . 1.) (ATOM . 1.)
(VALUES . 1.) (CONS . 1.) (NULL . 1.) (NOT . 1.)
)
(NIL) (T) (T . T) *FOR-VALUE* PROGN VALUES ONE 0. C-NIL PROG1 *STACKZ*
ANODE SECLASS-OR-2 (PUSH)
#S(HASH-TABLE EQ (LIST* . 243.) (LIST . 219.) (SYMBOL-FUNCTION . 215.)
(VALUES-LIST . 211.) (VALUES . 197.) (EQ . 182.) (%SVSTORE . 177.)
(SVREF . 172.) (CONS . 167.) (NULL . 162.) (NOT . 162.) (CONSP . 157.)
(ATOM . 152.) (CDDDDR . 147.) (CDDDAR . 142.) (CDDADR . 137.)
(CDDAAR . 132.) (CDADDR . 127.) (CDADAR . 122.) (CDAADR . 117.)
(CDAAAR . 112.) (FOURTH . 107.) (CADDDR . 107.) (CADDAR . 102.)
(CADADR . 97.) (CADAAR . 92.) (CAADDR . 87.) (CAADAR . 82.)
(CAAADR . 77.) (CAAAAR . 72.) (CDDDR . 67.) (CDDAR . 62.)
(CDADR . 57.) (CDAAR . 52.) (THIRD . 47.) (CADDR . 47.) (CADAR . 42.)
(CAADR . 37.) (CAAAR . 32.) (CDDR . 27.) (CDAR . 22.) (SECOND . 17.)
(CADR . 17.) (CAAR . 12.) (REST . 7.) (CDR . 7.) (FIRST . 2.)
(CAR . 2.)
)
((CAR)) ((CDR)) ((CAR) (CAR)) ((CDR) (CAR)) ((CAR) (CDR)) ((CDR) (CDR))
((CAR) (CAR) (CAR)) ((CDR) (CAR) (CAR)) ((CAR) (CDR) (CAR))
((CDR) (CDR) (CAR)) ((CAR) (CAR) (CDR)) ((CDR) (CAR) (CDR))
((CAR) (CDR) (CDR)) ((CDR) (CDR) (CDR)) ((CAR) (CAR) (CAR) (CAR))
((CDR) (CAR) (CAR) (CAR)) ((CAR) (CDR) (CAR) (CAR))
((CDR) (CDR) (CAR) (CAR)) ((CAR) (CAR) (CDR) (CAR))
((CDR) (CAR) (CDR) (CAR)) ((CAR) (CDR) (CDR) (CAR))
((CDR) (CDR) (CDR) (CAR)) ((CAR) (CAR) (CAR) (CDR))
((CDR) (CAR) (CAR) (CDR)) ((CAR) (CDR) (CAR) (CDR))
((CDR) (CDR) (CAR) (CDR)) ((CAR) (CAR) (CDR) (CDR))
((CDR) (CAR) (CDR) (CDR)) ((CAR) (CDR) (CDR) (CDR))
((CDR) (CDR) (CDR) (CDR)) ((ATOM)) ((CONSP)) ((NOT)) ((CONS)) ((SVREF))
((SVSET)) ((EQ)) ((VALUES0)) ((VALUES1)) (PUSH) STACK-TO-MV
((LIST-TO-MV)) ((SYMBOL-FUNCTION)) (PUSH) LIST ((NIL)) ((VALUES1)) LIST*
C-GLOBAL-FUNCTION-CALL COMPILER-ERROR PRIMOP MK-ANODE
"~S called with ~S arguments, but it requires ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
"~S mit ~S Argumenten aufgerufen, braucht aber ~:[~:[~S bis ~S~;~S~]~;mindestens ~*~S~] Argumente."
"~S est appelé avec ~S arguments mais a besoin ~:[de ~:[~S à ~S~;~S~]~;d'au moins ~*~S~] arguments."
LANGUAGE C-WARN C-NORMAL-FUNCTION-CALL FUNCTION-CODES
TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS CALLS-CODE CALLSR FUNTABR-INDEX
#S(HASH-TABLE EQ (INVOKE-DEBUGGER . 1.) (ERROR-OF-TYPE . 1.) (ERROR . 1.)
(UNWIND-TO-DRIVER . 1.) (DRIVER . 1.)
)
((BARRIER))
#Y(C-GLOBAL-FUNCTION-CALL-1 #11Y(00 00 00 00 00 01 07 00 01 19 01) NIL)
C-DIRECT-FUNCTION-CALL *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL
INLINE-EXPANSION FUNCTION LAMBDA INLINE-CALLABLE-FUNCTION-P
C-FUNCALL-INLINE
) )
#Y(#:TOP-LEVEL-FORM-136 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROCLAIM REMOVE-OLD-DEFINITIONS
#Y(C-PROCLAIM
#156Y(00 01 00 00 00 02 9C 20 03 00 19 02 9C 5A 25 00 78 94 01 62 AB 8B
96 80 80 86 01 00 14 8E 08 0A AA 6A 01 DA 37 02 30 BB 0F 01 82 01
1A 66 94 01 62 AB 8B 96 80 63 86 01 00 14 88 03 15 AA 6A 04 DD 37
02 30 BB 0F 04 AA 6A 06 37 07 C8 F8 31 52 0F 06 82 01 1A 5B 94 01
62 AB 8B 96 3C 86 01 00 14 88 03 15 AA 6A 06 DD 37 02 30 BB 0F 06
AA 6A 04 37 07 C8 F8 31 52 0F 04 82 01 1A 5C 94 01 62 1A 13 86 01
00 14 8E 08 0A AA 6A 07 DA 37 02 30 BB 0F 07 82 01 AB 8C 96 69 00
19 04
)
#S(HASH-TABLE EQ (DECLARATION . 109.) (NOTINLINE . 70.) (INLINE . 30.)
(SPECIAL . 1.)
)
*KNOWN-SPECIAL-VARS* #.#'EQ FUNCTION-NAME-P *INLINE-FUNCTIONS* #.#'EQUAL
*NOTINLINE-FUNCTIONS* *USER-DECLARATION-TYPES*
) )
#Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROCLAIM-CONSTANT REMOVE-OLD-DEFINITIONS
#Y(C-PROCLAIM-CONSTANT
#39Y(00 02 00 00 00 03 0E 00 1C 0E AC 6A 01 DA 37 02 30 BB 0F 01 AB 87 03
03 00 19 03 AC AC 2E 04 79 0E 05 5C 0F 05 19 03
)
*COMPILING-FROM-FILE* *KNOWN-SPECIAL-VARS* #.#'EQ C-CONSTANTP
C-CONSTANT-VALUE *CONSTANT-SPECIAL-VARS*
) )
#Y(#:TOP-LEVEL-FORM-138 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-DEFUN REMOVE-OLD-DEFINITIONS
#Y(C-DEFUN
#51Y(00 01 00 01 00 08 3A 01 12 7C 01 0E 00 1C 21 1A 0E AC 9D 79 0E 04 5C
0F 04 19 03 0E 00 1C 11 0E 01 1C 0D AC 6A 02 DB 37 02 30 BB 0F 02 91
01 61 00 19 03
)
*COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
*INLINE-DEFINITIONS*
) )
#Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROVIDE REMOVE-OLD-DEFINITIONS
#Y(C-PROVIDE
#20Y(00 01 00 00 00 02 AB 70 4E 6A 00 D9 37 02 30 BB 0F 00 19 02)
*COMPILED-MODULES* #.#'STRING=
) )
#Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-REQUIRE REMOVE-OLD-DEFINITIONS
#Y(C-REQUIRE
#47Y(00 01 00 01 00 08 3B 01 14 3C 02 AD 70 4E 6A 00 D9 37 02 8B B7 11 91
00 04 AD 7F E9 02 9D 1F 0A DA AD 32 00 17 19 04 00 19 04 AC C5 33 19
04
)
*COMPILED-MODULES* #.#'STRING-EQUAL
#Y(C-REQUIRE-LOAD-LIB
#52Y(00 01 00 00 00 02 AB 6A 00 D9 72 02 23 6F 02 93 00 9C 1F 0B AA 37
01 70 EE DB 37 04 8B 38 09 91 00 01 9E 14 2E 08 19 04 AA DC 62 DD
62 DE 62 2C 07 07 19 04
)
*SOURCE-FILE-TYPES*
(#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "lib" :VERSION NIL
) )
SEARCH-FILE
#.(PATHNAME-TYPE
'#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE)
:NAME NIL :TYPE "lib" :VERSION NIL
) )
:VERBOSE :PRINT :ECHO LOAD COMPILE-FILE
) ) )
#Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANALYZE-LETLIST REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-LETLIST
#90Y(00 01 00 00 00 02 AB 01 02 92 02 80 43 93 02 8D 08 23 9D 5A 1F 26 9D
5A 77 8E 08 20 9D 5A 5B 1F 1B 9D 5A 5B 5B 1B 15 9D 5A 77 83 01 9D 5A
5B 5A 14 83 00 1A 15 93 02 83 01 00 1A 74 C3 4F 0B D9 DA DB 6D 03 04
93 06 2F 00 50 82 02 91 02 FF BD AB 71 4A AB 71 4A 3F 02 19 05
)
C-ERROR "Illegal syntax in LET/LET*: ~S" "Falsche Syntax in LET/LET*: ~S"
"Mauvaise syntaxe pour LET/LET* : ~S" LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANALYZE-LAMBDALIST REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-LAMBDALIST
#776Y(00 01 00 00 00 02 AB 01 04 D8 01 08 A8 1F 2D 93 0D AA 8D 08 09 AA
2E 08 16 01 82 0D 1A 6E 9B 25 01 13 9B 25 02 00 C6 4F 6F DC DD DE
6D 03 07 AE 2F 03 50 1A 63 AA 83 0D 1A 5E 16 01 A8 1F 80 C8 93 0D
24 09 80 C2 1A 3A 9B 25 0A 04 9B 25 0B 22 AA 83 0C 62 83 0B C3 1A
80 6A 93 00 83 0C 62 83 0B C3 1A 80 5F 93 00 83 0C 9B 5B 77 83 0B
C3 1A 80 52 C6 4F 80 5E DC DD DE 6D 03 07 AE 2F 03 50 16 01 82 0D
A8 1F 80 80 93 0D AA 8D 08 FF B9 9B 1F 3A 93 00 8E 08 35 9B 5B 1C
FF BE 9B 5B 1F 2C 9B 5B 5B 1C 40 9B 5B 5B 1F 22 9B 5B 5B 77 8E 08
1B 9B 5B 5B 5B 1B 15 93 00 83 0C 9B 5B 77 83 0B 9B 5B 5B 5A 14 83
0A 16 01 1A FF B6 AA 2E 08 16 01 1A FF AE 16 01 1A FF A9 C6 4F 80
44 E5 E6 E7 6D 03 07 BD 2F 03 50 1A 38 9B 25 10 15 C6 4F 0E E5 E6
E7 6D 03 07 BE 2F 03 50 16 01 1A 23 16 01 1A 1F 9B FF 1A 17 16 01
A8 1F 16 93 0D 24 0C 11 82 0D 1F 45 93 0D AA 8D 08 4F AA 2E 08 82
0E 16 01 A8 1F 80 76 93 0D 9B 25 11 08 C6 4F 14 DC DD C9 1A 07 C6
4F 0C EC ED 03 16 14 6D 03 07 AE 2F 03 50 16 01 82 0D 1A 59 9B 25
17 11 C6 4F 80 D1 DC DD DE 6D 03 07 AE 2F 03 50 1A 80 C4 AA 71 8C
6A 19 70 D7 83 07 AA 83 06 62 83 05 C3 1A 80 A9 9B 5A 77 83 07 9B
5A 5B 1A 80 92 9B 5B 5B 5A 1A 80 97 9B 5B 77 83 05 9B 5B 5B 20 6F
C3 1A 80 89 AA 23 12 05 AA 24 13 FF 92 16 01 A8 1F 80 A4 93 0D 24
12 80 9E 82 0D 7D 07 A8 1F 80 86 93 0D AA 8D 08 FF 94 9B 1F 80 66
93 00 8D 08 21 9B 5A 1F 80 5C 9B 5A 77 8E 8D 80 55 9B 5A 5B 1F 80
4F 9B 5A 5B 77 8E 08 80 47 9B 5A 5B 5B 1B 80 40 9B 5B 1C 1B 9B 5B
1F 38 9B 5B 5B 1C 12 9B 5B 5B 1F 2E 9B 5B 5B 77 8E 08 27 9B 5B 5B
5B 1B 21 9B 5A 20 FF 6E 93 00 71 8C 6A 19 70 D7 83 07 9B 77 83 06
9B 5B 20 FF 6D 62 83 05 C3 14 83 04 1A 03 AA 2E 08 16 01 82 0D 1A
FF 81 AA 23 18 05 AA 24 13 FF 1B 16 01 A8 1F 0D 93 0D 24 18 08 7D
02 1A 02 16 01 82 0D A8 1F 80 82 93 0D 9B 25 1A 08 C6 4F 6F DC DD
C9 1A 07 C6 4F 67 EC ED 03 16 14 6D 03 07 AE 2F 03 50 16 01 1A 59
9B 25 1B 00 9B 1A 2A C6 4F 80 4A DC DD DE 6D 03 07 AE 2F 03 50 16
01 82 0D A8 1F 80 4D 93 0D AA 8D 08 5D 9B 1F 28 93 00 8E 08 23 9B
5B 1B 08 9B 5A 14 83 02 00 1A 10 9B 5B 1F 13 9B 5B 5B 1B 0E 93 00
83 02 9B 5B 5A 14 83 01 16 01 1A 49 AA 2E 08 16 01 1A 42 16 01 1A
FF BD AA 24 13 FF 86 16 01 A8 1F 06 93 0D 23 13 FF AD 92 0D 0E C6
4F 0B F4 F5 64 1E 6D 03 07 BD 2F 03 50 B6 71 4A B6 71 4A B6 71 4A
B6 71 4A B6 B6 B6 71 4A B6 71 4A B6 71 4A B6 71 4A B6 B6 71 4A B6
71 4A 3F 0D 19 10
)
0.
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&AUX . 21.) (&KEY . 21.) (&REST . 21.)
(&OPTIONAL . 21.)
)
C-ERROR "Lambda list marker ~S not allowed here."
"Dieser Lambdalistenmarker ist an dieser Stelle nicht erlaubt: ~S"
"Le marqueur de liste lambda ~S n'est pas permis ici." LANGUAGE
LAMBDALIST-ERROR &OPTIONAL
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&AUX . 183.) (&KEY . 183.) (&REST . 183.)) &REST
"Missing &REST parameter in lambda list ~S"
"Fehlender &REST-Parameter in der Lambdaliste: ~S"
"Il manque le paramètre &REST dans la liste lambda ~S"
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
)
#S(HASH-TABLE EQ (&ENVIRONMENT . 102.) (&WHOLE . 102.) (&BODY . 102.)
(&AUX . 102.) (&ALLOW-OTHER-KEYS . 102.) (&KEY . 102.) (&REST . 102.)
(&OPTIONAL . 102.)
)
&KEY &AUX "Lambda list element ~S is superfluous."
"Überflüssiges Lambdalisten-Element: ~S"
"L'élément de liste lambda est superflu : ~S"
#S(HASH-TABLE EQ (&ENVIRONMENT . 221.) (&WHOLE . 221.) (&BODY . 221.)
(&AUX . 221.) (&ALLOW-OTHER-KEYS . 221.) (&KEY . 221.) (&REST . 221.)
(&OPTIONAL . 221.)
)
&ALLOW-OTHER-KEYS *KEYWORD-PACKAGE*
#S(HASH-TABLE EQ (&ENVIRONMENT . 118.) (&WHOLE . 118.) (&BODY . 118.)
(&AUX . 118.) (&ALLOW-OTHER-KEYS . 118.) (&KEY . 118.) (&REST . 118.)
(&OPTIONAL . 118.)
)
#S(HASH-TABLE EQ (&ENVIRONMENT . 4.) (&WHOLE . 4.) (&BODY . 4.)
(&AUX . 4.) (&ALLOW-OTHER-KEYS . 4.) (&KEY . 4.) (&REST . 4.)
(&OPTIONAL . 4.)
)
"Lambda lists with dots are only allowed in macros, not here: ~S"
"Eine Lambdaliste, die einen Punkt enthält, ist nur bei Macros erlaubt, nicht hier: ~S"
"Les listes lambdas contenant une paire pointée ne sont permises qu'avec des macros et non ici : ~S"
) )
#Y(#:TOP-LEVEL-FORM-143 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
LAMBDALIST-ERROR REMOVE-OLD-DEFINITIONS
#Y(LAMBDALIST-ERROR
#23Y(00 01 00 00 00 02 C3 4F 0C D9 DA DB 6D 03 04 AF 2F 00 50 19 02 19 02
)
C-ERROR "Illegal lambda list element ~S"
"Unzulässiges Lambdalistenelement: ~S"
"N'est pas permis dans une liste lambda : ~S" LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-144 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
#Y(INLINE-CALLABLE-FUNCTION-P
#173Y(00 02 00 01 00 09 3C 01 AD 31 06 1E 80 9D 93 03 C3 59 1E 80 96 94
03 31 06 1E 80 8F 9E 5B 5B 58 1E 80 88 9E 5B 77 AA 31 06 1E 80 7D
93 00 C4 59 1E 80 76 94 00 31 06 1E 80 6F 9B 5B 77 AA 31 0D 1E 80
64 DA AB 37 06 31 60 58 1E 80 5A DB AB 37 06 31 60 58 1E 80 50 DC
AB 37 06 71 60 DD AC 37 06 71 60 DE AD 37 06 8D 60 03 AC 31 48 14
91 01 0D 91 06 1D 91 02 25 B1 AB 32 01 2D 19 09 A1 1D 24 B1 91 03
01 9D 14 32 01 32 19 09 AB 31 98 1A 05 B1 91 03 77 9C 14 32 01 31
19 09 14 B2 96 02 32 02 31 19 09 19 09 19 06 19 05 19 04
)
FUNCTION LAMBDA &KEY &ALLOW-OTHER-KEYS &OPTIONAL &REST &AUX
) )
#Y(#:TOP-LEVEL-FORM-145 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *SPECIALS*) *SPECIALS*
)
#Y(#:TOP-LEVEL-FORM-146 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *IGNORES*) *IGNORES*
)
#Y(#:TOP-LEVEL-FORM-147 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *IGNORABLES*) *IGNORABLES*
)
#Y(#:TOP-LEVEL-FORM-148 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PUSH-SPECIALS REMOVE-OLD-DEFINITIONS
#Y(PUSH-SPECIALS #18Y(00 00 00 00 00 01 98 00 98 01 6A 02 32 00 17 9A 00 01)
PUSH-*VENV* MAKE-SPECIAL-VAR *SPECIALS*
) )
#Y(#:TOP-LEVEL-FORM-149 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
IGNORE-CHECK REMOVE-OLD-DEFINITIONS
#Y(IGNORE-CHECK
#82Y(00 01 00 00 00 02 D8 AC D9 71 31 AA 6A 02 DB 37 02 8B B7 2F AA 6A 0E
DB 37 02 8B B7 32 D8 AD DC 8D 31 2C D8 AD E2 8D 31 26 AA 8E 8A 22 E7
E8 D4 14 6D 03 08 AB 2F 09 19 03 DD DE CA 1A 72 E3 E4 D0 1A 6D D8 AD
DC 8D 31 70 D8 AD E2 8D 31 6F 00 19 03
)
VAR 1. *IGNORES* #.#'EQ 2.
"Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
"Binden der Variablen ~S kann trotz IGNORE-Deklaration~%Seiteneffekte haben, weil sie SPECIAL deklariert ist."
"Lier la variable ~S peut avoir des effets de bord malgré la déclaration IGNORE~%car elle a été déclarée SPECIAL."
LANGUAGE C-WARN 5. "variable ~S is used despite of IGNORE declaration."
"Variable ~S wird trotz IGNORE-Deklaration benutzt."
"La variable ~S est utilisée malgré la déclaration IGNORE." *IGNORABLES*
"variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
"Variable ~S wird nicht benutzt.~%Schreibfehler oder fehlende IGNORE-Deklaration?"
"La variable ~S n'est pas utilisée.~%Mauvaise orthographe ou déclaration IGNORE manquante?"
) )
#Y(#:TOP-LEVEL-FORM-150 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(C-MAKE-CLOSURE
#29Y(00 03 00 00 00 04 91 03 03 00 19 04 D8 94 03 94 03 7A 03 D9 AF 71 48
7A 02 60 02 19 04
)
VENV MAKE-VECTOR1&PUSH
) )
#Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-FIXED-VAR-1 REMOVE-OLD-DEFINITIONS
#Y(BIND-FIXED-VAR-1
#68Y(00 01 00 00 00 02 AB 8B 61 24 AB 87 00 20 AB 6A 01 DA 37 02 8B B7 17
E2 AC E3 62 E4 62 E5 62 E6 62 E7 62 E8 6A 11 EA 6A 13 2C 10 14 19 02
AB 88 03 0D C7 4F 0A DD DE DF 6D 03 08 AF 2F 04 50 AB 2E 09 19 02
)
PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
"Constant ~S cannot be bound." "Konstante ~S kann nicht gebunden werden."
"La constante ~S ne peut pas être liée." LANGUAGE MAKE-SPECIAL-VAR :NAME
:SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ *STACKZ*
:VENVC *VENVC* MAKE-VAR
) )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-FIXED-VAR-2 REMOVE-OLD-DEFINITIONS
#Y(BIND-FIXED-VAR-2
#29Y(00 01 00 00 00 02 D8 AC D9 8E 31 06 D8 AC DA 8E 31 03 00 19 02 DB 0E
04 5C 0F 04 19 02
)
VAR 2. 3. (BIND 1.) *STACKZ*
) )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-BIND-FIXED-VAR REMOVE-OLD-DEFINITIONS
#Y(C-BIND-FIXED-VAR
#65Y(00 03 00 00 00 04 D8 AE D9 8D 31 09 D8 AE E0 8D 31 1C 00 19 04 D8 AE
DA 8D 31 77 DB AD 6A 04 AE 7A 04 DD D8 B0 DE 71 31 6E 07 60 02 1A 0E
DB AD 6A 04 AE 7A 04 E1 AF 6A 04 AF 60 04 14 60 02 19 04
)
VAR 2. 3. GET *VENVC* BIND 1. NEW-CONST 9. SET
) )
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(PROCESS-FIXED-VAR-LIST
#75Y(00 01 00 01 00 08 3C 01 AC AC 01 02 92 03 32 D8 0E 01 5C 0F 01 DA 37
01 71 90 DB 62 DC 62 DD 62 DE A6 5A 58 14 DF 62 E0 6A 01 E1 6A 0A 6D
10 0B 83 00 93 03 6E 0C 83 01 94 03 82 03 69 03 91 03 4E AB 71 4A AB
71 4A 3F 02 19 07
)
1. *STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP
:STACKZ :VENVC *VENVC* MAKE-VAR BIND-FIXED-VAR-1
) )
#Y(#:TOP-LEVEL-FORM-155 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
UNMODIFY-UNUSED-VAR REMOVE-OLD-DEFINITIONS
#Y(UNMODIFY-UNUSED-VAR
#69Y(00 01 00 00 00 02 D8 AC D9 71 31 62 1A 30 9B 5B 77 DA AB DB C7 1A 20
86 01 00 5B 5B 1B 70 93 00 DA AB DD 31 31 5B 1B 06 DA AB DB 62 31 32
16 01 9B 5B 77 DA AB DB 00 14 31 32 16 01 82 01 AB 8C 96 55 00 19 04
)
VAR 7. ANODE 3. ((VALUES1)) 2.
) )
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(CHECKING-FIXED-VAR-LIST
#80Y(00 01 00 01 00 08 3C 01 62 AD 62 1A 3A D9 AB DC 62 31 32 9F 5A 1C 0C
D9 AB DD 71 31 DE 30 AC AE DF 30 AC AA 2E 08 1A 1B 86 01 00 14 2E 00
D9 AB DA 8D 31 0F D9 AB DB 8E 31 53 D9 AB DC 8E 31 03 AA 83 02 82 04
82 01 AB 8C 96 5D AC 31 4A 19 06
)
IGNORE-CHECK VAR 2. 6. 9. 10. 0. GONE UNMODIFY-UNUSED-VAR
) )
#Y(#:TOP-LEVEL-FORM-157 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BOUND-TO-VAR-P REMOVE-OLD-DEFINITIONS
#Y(BOUND-TO-VAR-P
#50Y(00 02 00 00 00 03 D8 AD D9 8D 31 1E DA AC DB 71 31 71 48 24 04 14 DA
AC DB 31 31 5A F7 DA AC 8D 35 6A 9C 1F 05 93 01 23 05 03 00 19 03 9C
5B 5A 19 03
)
VAR 2. ANODE 3. 1. GET
) )
#Y(#:TOP-LEVEL-FORM-158 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
#Y(BIND-MOVABLE-VAR
#135Y(00 02 00 00 00 03 AC 8B 61 80 66 AC 87 00 80 61 AC 6A 01 DA 37 02
8B B7 80 57 E5 0E 0A 5C 0F 0A E6 AD E7 62 E8 B0 6E 11 EA B2 87 11
80 53 00 14 EC 62 ED 62 EE 62 EF 6A 0A F0 6A 19 6D 12 1A AA AD 6F
1B 92 00 13 AB AE 7A 02 AA F4 AD F5 31 31 79 F4 AD F5 AD 31 32 16
02 16 01 15 19 03 C7 4F 0D DD DE DF 6D 03 08 B0 2F 04 50 CC 1A 08
CC 1A 05 AC 87 03 69 CE 14 0E 0A 5C 0F 0A AC 2E 0C 19 03 B2 2E 13
1A FF A8
)
PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
"Constant ~S cannot be bound." "Konstante ~S kann nicht gebunden werden."
"La constante ~S ne peut pas être liée." LANGUAGE 0. *STACKZ* (BIND 1.)
MAKE-SPECIAL-VAR 1. :NAME :SPECIALP :CONSTANTP ANODE-CONSTANTP :CONSTANT
ANODE-CONSTANT :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC*
MAKE-VAR BOUND-TO-VAR-P VAR 8.
) )
#Y(#:TOP-LEVEL-FORM-159 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
#Y(C-BIND-MOVABLE-VAR
#67Y(00 01 00 00 00 02 D8 AC D9 8D 31 12 D8 AC DE 8D 31 1E D8 AC E1 31 31
77 8E 92 25 00 19 02 D8 AC DA 8D 31 77 DB D8 AD DC 71 31 6E 05 60 02
1A 0B DF AC 6A 08 D8 AF E1 71 31 60 04 14 60 01 19 02 CD 19 02
)
VAR 2. 3. BIND 1. NEW-CONST 9. SET *VENVC* 10. ((PUSH))
) )
#Y(#:TOP-LEVEL-FORM-160 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
#Y(C-BIND-MOVABLE-VAR-ANODE
#57Y(00 02 00 00 00 03 D8 D9 AE 6E 02 6D 03 03 AD AD 6F 04 92 00 1C DD AB
DE 71 31 62 1A 0E 86 01 00 77 A2 22 05 94 00 AE 30 AE 82 01 AB 8C 96
6E 16 02 16 01 AC AB 60 02 19 04
)
BIND-MOVABLE (NIL) C-BIND-MOVABLE-VAR MK-ANODE BOUND-TO-VAR-P VAR 8.
) )
#Y(#:TOP-LEVEL-FORM-161 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(PROCESS-MOVABLE-VAR-LIST
#72Y(00 03 00 00 00 04 AD AD 01 03 92 04 26 93 03 AA D8 6F 01 93 06 AB 6F
02 AB 83 04 AA 83 05 6A 03 83 03 92 09 03 AA 2E 04 16 03 94 04 82 04
69 04 91 04 5A 91 06 05 98 04 9E 36 00 AC 71 4A AC 71 4A AC 71 4A 3F
03 19 09
)
ONE C-FORM BIND-MOVABLE-VAR *STACKZ* PUSH-*VENV*
) )
#Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(CHECKING-MOVABLE-VAR-LIST
#152Y(00 02 00 00 00 03 AC AC 62 92 02 37 93 02 92 00 27 14 2E 00 D9 AB
DA 8D 31 1E D9 AB DB 8D 31 28 D9 AB E0 8E 31 80 47 D9 AB DC 8E 31
0B D9 AB DD 71 31 DE 30 AC AA 83 01 16 01 94 02 82 02 69 02 91 02
49 AA 31 4A 19 06 D9 AB DC 62 31 32 D9 AB DD 71 31 DE 30 AC 93 02
DF AB DA 31 31 16 01 5B 1B 56 93 02 DF AB DB 62 31 32 16 01 1A 4A
D9 AB DC 62 31 32 D9 AB DD 71 31 DE 30 AC 93 02 DF AB DA 31 31 16
01 5B 1B 0A 93 02 DF AB DB 62 31 32 16 01 AA 2E 09 1A FF A0
)
IGNORE-CHECK VAR 2. 3. 9. 10. 0. ANODE 6. UNMODIFY-UNUSED-VAR
) )
#Y(#:TOP-LEVEL-FORM-163 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-VAR-LIST REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-VAR-LIST
#192Y(00 01 00 00 00 02 0E 00 1B 07 AB 71 49 62 1A 80 A7 00 19 02 86 01
00 1C 80 9C D9 AB DA 8D 31 80 95 D9 AB DB 8D 31 80 8E D9 AB DC 71
31 62 1A 80 7E 86 01 00 77 D9 AB DA 8D 31 80 6F D9 AB DB 8D 31 80
68 D9 AB DD 8D 31 80 61 D9 AB DE 31 31 77 23 07 80 57 9C 5B 5B 1C
80 51 D9 AB DE 71 31 DF 30 AC 9C 5B 77 E0 AB E1 62 31 32 16 01 9C
5B 78 E0 AB E1 62 31 32 16 01 D9 AE E2 71 31 D9 AC E2 71 31 1A 1A
93 00 E0 AB E1 71 31 92 00 0C 93 00 94 00 B3 30 AC 16 01 AB 83 03
16 02 82 00 9B 20 63 16 01 D9 AF E2 AD 31 32 16 01 16 01 82 01 AB
8C 96 FF 7D 16 02 82 01 AB 8C 96 FF 57 00 19 04
)
*NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
) )
#Y(#:TOP-LEVEL-FORM-164 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-BIND-WITH-SVARS REMOVE-OLD-DEFINITIONS
#Y(C-BIND-WITH-SVARS
#206Y(00 06 00 00 00 00 B0 B0 B0 B0 B0 B0 62 92 06 80 63 9F 5A 1C 0A 93
04 93 03 6F 00 AB 7F A5 00 93 06 93 06 93 05 93 04 D9 6E 02 DB AF
DC 8D 31 80 4D DB AF E3 8D 31 80 67 DB AF E5 8E 31 80 83 DD AE 6A
06 AE AE 7A 05 AD E4 B1 6A 06 B0 7A 04 9E 14 60 04 16 04 F6 AB 7F
A5 00 94 06 94 06 94 06 94 06 94 06 82 06 69 06 69 06 69 06 69 06
69 06 91 06 FF 9D AA 31 4A 19 0E 00 61 03 1A 55 DD AE 6A 06 AE AE
7A 05 AD AC DB B2 DF 8D 31 6B E0 DB B3 E1 71 31 6E 0A 7A 02 60 01
61 03 1A FF B4 DD AE 6A 06 AE AE 7A 05 AD AC E4 B2 6A 06 B1 60 04
1A FF 9D DD AE 6A 06 AE AE 7A 05 AD AC 60 03 1A FF 91 E6 AD DC 31
31 5B 1B 69 00 1A FF 85
)
C-BIND-MOVABLE-VAR-ANODE ONE MAKE-LABEL VAR 2. JMPIFBOUNDP *VENVC* 3.
BIND 1. NEW-CONST 9. SET 6. ANODE
) )
#Y(#:TOP-LEVEL-FORM-165 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-LAMBDABODY REMOVE-OLD-DEFINITIONS
#Y(C-LAMBDABODY
#794Y(00 02 00 03 00 12 3C 03 3C 02 3C 01 AE D8 2F 01 DA B0 DB 6A 04 DD
6A 06 2C 06 07 10 04 0E 04 10 08 6A 04 0E 06 5C 10 06 62 2E 09 10
0A CE 10 0C D0 4F 81 B7 91 15 82 D0 93 16 2E 0E 41 0D 6A 04 B7 71
48 E7 AC E8 AD 31 32 16 02 6A 04 B6 71 48 E7 AC E9 AD 31 32 16 02
6A 04 B3 CE 59 58 14 E7 AC EA AD 31 32 16 02 6A 04 E7 AB EB B5 31
32 16 01 6A 04 E7 AB EC B4 31 32 16 01 6A 04 E7 AB ED B0 31 32 16
01 92 22 09 6A 04 93 23 AB 30 AC 16 01 94 23 63 6A 16 6A 17 72 02
00 30 62 41 02 6A 08 0E 08 10 08 0E 18 10 18 0E 16 10 16 0E 06 10
06 00 10 19 00 10 1A 00 10 1B 01 16 65 2C 2E 1C 41 03 15 0F 1B 15
0F 1A 15 0F 19 2D 1D 62 0E 06 5C 0F 06 F6 65 3A 65 4F 2F 1E 41 02
69 15 69 15 65 39 2E 1E 41 02 69 12 69 12 65 36 23 0B 82 1F 65 36
7A 01 2E 1E 41 02 69 0C 69 0C 65 33 2E 1E 41 02 69 09 69 09 D8 0E
08 5C 0F 08 E3 0E 08 5C 0F 08 F7 BF 2E 1F 09 13 BC BC 65 3A 65 3A
2C 04 20 41 04 69 11 69 11 69 0E 69 10 65 36 23 0B 05 B6 2E 21 09
0A B3 B3 65 34 65 34 2C 04 20 41 04 69 08 69 08 69 05 69 07 65 2F
65 2F 2F 22 41 02 69 03 69 03 64 23 04 2E 79 64 24 6F 25 C0 65 50
6F 26 BE 6E 26 BC BC 6F 27 BA 6E 26 B8 6E 26 B6 B6 6F 27 B4 B4 6F
27 72 07 23 6A 0A AB AE B0 6D 03 28 98 29 65 1A 65 1A 65 1A 6D 04
2A C1 C1 C0 C2 C1 C1 6D 06 2B 98 29 BD BD BD 6D 04 2A BA BA B9 BB
BA BA 6D 06 2B 98 2C B6 B6 6D 03 2A B2 64 2D 6A 08 65 37 03 2E 7B
03 03 2F 7B 02 32 07 23 79 64 30 64 31 AC 6D 03 32 92 02 0A AF D8
30 AC AE AD A2 79 30 AC 65 19 C1 BF BD BB B9 B7 72 07 23 2E 33 15
16 19 12 07 16 10 50 14 6A 04 E7 AB 64 34 AE 31 32 16 01 92 11 19
6A 04 E7 AB E8 71 31 64 35 BE 37 06 71 63 72 01 36 E7 AC E8 AD 31
32 16 02 64 36 AB D8 71 31 24 37 80 50 6A 04 E7 AB E8 E3 31 32 16
01 6A 04 E7 AB E9 E3 31 32 16 01 6A 04 E7 AB EA 63 31 32 16 01 6A
04 E7 AB EB 62 31 32 16 01 6A 04 E7 AB EC 62 31 32 16 01 6A 04 E7
AB ED 62 31 32 16 01 6A 04 E7 AB 64 34 80 31 00 64 36 AB 64 38 64
39 31 32 16 01 6A 04 E7 AB 64 3A C0 31 32 16 01 6A 04 6A 04 6A 04
6A 04 6A 04 E7 AB 64 38 31 31 16 01 1B 80 89 CE 14 E7 AC 64 3B AD
31 32 16 01 F6 6A 04 E7 AB 64 3C 80 31 00 71 48 72 02 35 E7 AC 64
3D AD 31 32 16 01 F6 6A 04 E7 AB 64 3E 80 31 00 71 48 72 02 35 E7
AC 64 3F AD 31 32 16 01 F6 6A 04 E7 AB EC 80 31 00 71 48 72 02 35
E7 AC 64 40 AD 31 32 16 02 92 12 1E 6A 04 E7 AB 64 3C 31 31 16 01
1B 0C 6A 04 E7 AB 64 3E 31 31 16 01 1C 06 64 41 64 42 2F 43 0E 04
16 01 12 05 19 06 5A 5B 5B 43 1A FD 2D 01 02 3F 02 1A FD E0 C3 1A
FF 74
)
1. TEST-LIST :NAME :ENCLOSING *FUNC* :VENVC *VENVC* MAKE-FNODE *STACKZ*
MAKE-LABEL *FUNC-START-LABEL* 0. *ANONYMOUS-COUNT* C-ERROR
ANALYZE-LAMBDALIST FNODE 10. 11. 12. 13. 14. 15. *VENV* *FENV* *DENV*
*SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
BIND-AUX-VARS PROGN ALL C-FORM CHECKING-FIXED-VAR-LIST
CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-FIXED-VAR MAPCAP
C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND (T) ((RET)) LAMBDABODY
(T . T) MK-ANODE OPTIMIZE-VAR-LIST 2. GONE ANODE ERROR 3.
((NIL) (SKIP 2.) (RET)) 20. 5. 6. 7. 8. 9. 16. C-LAMBDABODY "GF"
COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-166 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-REQ-VARS REMOVE-OLD-DEFINITIONS
#Y(BIND-REQ-VARS
#37Y(00 01 00 00 00 02 62 AC 62 1A 0F 86 01 00 14 2E 00 6A 01 83 02 AA 2E
02 82 01 AB 8C 96 6D 16 02 AA 31 4A 19 03
)
PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
) )
#Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-OPT-VARS REMOVE-OLD-DEFINITIONS
#Y(BIND-OPT-VARS
#129Y(00 04 00 00 00 05 01 04 B2 B2 B2 B2 92 03 80 56 93 00 23 00 80 62
D9 93 03 7A 01 00 79 DA 93 05 6A 03 6A 04 7A 04 7A 01 6D 03 05 93
01 AB 6F 06 AB 83 06 AA 83 07 16 02 93 01 DF 6F 08 83 07 93 03 2E
09 6A 04 83 06 93 03 2E 0A 93 00 23 00 04 93 05 2E 09 94 03 94 03
94 03 82 03 69 03 69 03 69 03 91 03 FF AA 16 04 AD 71 4A AD 71 4A
AD 71 4A AD 71 4A 3F 04 19 09 62 83 05 62 83 04 1A FF B7
)
0. OPTIONAL-SVAR BOUNDP *VENVC* *STACKZ* MK-ANODE BIND-MOVABLE-VAR ONE
C-FORM PUSH-*VENV* BIND-FIXED-VAR-2
) )
#Y(#:TOP-LEVEL-FORM-168 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-REST-VARS REMOVE-OLD-DEFINITIONS
#Y(BIND-REST-VARS
#22Y(00 01 00 00 00 02 62 93 02 2E 00 6A 01 83 00 93 02 2E 02 15 19 02)
PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
) )
#Y(#:TOP-LEVEL-FORM-169 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BIND-AUX-VARS REMOVE-OLD-DEFINITIONS
#Y(BIND-AUX-VARS
#56Y(00 02 00 00 00 03 01 02 AE AE 92 01 1F 93 00 AA D8 6F 01 93 03 AB 6F
02 AB 83 05 AA 83 06 AA 2E 03 16 03 94 01 82 01 69 01 91 01 61 16 02
AB 71 4A AB 71 4A 3F 02 19 05
)
ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV*
) )
#Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FNODE-FUNCTION REMOVE-OLD-DEFINITIONS
#Y(C-FNODE-FUNCTION
#222Y(00 01 00 01 00 08 3A 01 02 0E 00 10 00 D9 DA DB B2 DC 71 31 8D 92
11 DB B2 DE 8D 31 14 00 14 62 DB B4 E3 71 31 1A 80 52 DD B2 7A 02
60 01 1A 80 A6 DF DB B3 E0 71 31 6A 00 7A 03 CC 79 E2 0E 00 5C 0F
00 15 1A 58 E6 AB 60 02 1A 1D 93 00 AA 6A 0C DB AB E3 80 31 00 E5
37 02 8B B7 69 E7 E8 AC E0 71 31 6A 11 6A 00 60 04 14 D5 79 E2 0E
00 5C 0F 00 AD 7F A5 02 16 01 82 00 9B 20 4F 16 01 AA 7F A7 00 62
DB B5 EB 71 31 1A 35 EC AB 60 02 1A 1D 93 00 AA 6A 0C DB AB EB 80
31 00 E5 37 02 8B B7 69 E7 ED AC E0 71 31 6A 11 6A 00 60 04 14 03
16 79 E2 0E 00 5C 0F 00 AD 7F A5 02 16 01 82 00 9B 20 4E 16 01 AA
7F A7 00 EF B5 DB B7 DC 71 31 7A 03 7A 01 32 04 23 14 2C 03 18 11
19 03
)
*STACKZ* FUNCTION (NIL) FNODE 9. FCONST 3. VENV 4. ((PUSH)) 1. 6. *FUNC*
#.#'EQ BCONST GET BLOCK *VENVC* ((PUSH)) 8. GCONST TAGBODY ((PUSH))
COPY-CLOSURE MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-171 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROGN REMOVE-OLD-DEFINITIONS
#Y(C-PROGN
#80Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 92 00 31 9B 5B 1C 31 DD 62
AC 92 00 1D 93 00 82 01 AA 92 02 29 00 14 6F 04 AE DF AC E0 71 31 2F
09 FA AA 83 03 16 02 91 00 63 E2 AD AD 71 4A 2C 03 0B 19 05 2D 03 19
02 93 00 2E 04 19 02 0E 06 1A 54
)
*FORM* 1. TEST-LIST C-NIL C-FORM (NIL) *FOR-VALUE* ANODE 2. SECLASS-OR-2
PROGN MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-172 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROG1 REMOVE-OLD-DEFINITIONS
#Y(C-PROG1
#83Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 3B 6A 03 24 04 06 0E 00 5B
5B 1C 30 0E 00 5B 77 DC 6F 06 DF 0E 08 5C 10 08 DD 0E 00 5B 5B 79 62
2F 06 11 14 E1 E2 AD D9 71 31 E2 AD D9 71 31 6F 0B AD E4 AE D0 7B 03
2C 03 0E 19 03 DD 0E 00 5B 79 2E 06 19 01
)
*FORM* 2. TEST-LIST *FOR-VALUE* ONE PROGN C-FORM 1. *STACKZ* PROG1 ANODE
SECLASS-OR-2 (PUSH) ((POP)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-173 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROG2 REMOVE-OLD-DEFINITIONS
#Y(C-PROG2
#35Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 DC 0E 00 5B 5B 77 0E
00 5B 5B 5B 7B 02 7A 03 2E 05 19 01
)
*FORM* 3. TEST-LIST PROGN PROG1 C-FORM
) )
#Y(#:TOP-LEVEL-FORM-174 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-IF REMOVE-OLD-DEFINITIONS
#Y(C-IF
#122Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 0E 00 5B 5B 77
0E 00 5B 5B 5B 77 AC DC 6F 05 AA 87 06 80 43 AC 6E 05 AC 6E 05 62
6E 09 6A 0A 6E 09 E3 E4 B0 E5 71 31 E4 B0 E5 71 31 6F 0E E4 AF E5
71 31 6F 0E B0 E7 AF 7A 02 B1 E8 B0 7A 02 B1 B3 B2 7A 07 2C 03 11
19 09 AC 6E 05 02 10 08 AF 62 2F 05 11 15 19 05 AA 87 07 6E 02 10
08 AF 62 2F 05 11 AB 2E 05 3E 19 05
)
*FORM* 3. 4. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE
*NO-CODE* MAKE-LABEL *FOR-VALUE* IF ANODE 2. SECLASS-OR-2 JMPIFNOT JMP
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-175 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-WHEN REMOVE-OLD-DEFINITIONS
#Y(C-WHEN
#28Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 DC 0E 00 5B 5B 79 7A
03 2E 05 19 01
)
*FORM* 2. TEST-LIST IF PROGN C-FORM
) )
#Y(#:TOP-LEVEL-FORM-176 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-UNLESS REMOVE-OLD-DEFINITIONS
#Y(C-UNLESS
#29Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 62 DC 0E 00 5B 5B 79
7A 04 2E 05 19 01
)
*FORM* 2. TEST-LIST IF PROGN C-FORM
) )
#Y(#:TOP-LEVEL-FORM-177 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-AND REMOVE-OLD-DEFINITIONS
#Y(C-AND
#166Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 1C 80 52 0E 00 5B 5B 1C
80 53 E0 62 0E 00 78 6A 09 6E 0A 92 01 32 93 01 82 02 AA 92 03 80
46 CE 14 6F 07 AF E4 AC E5 71 31 2F 0E FB 92 03 3B AA 87 0F 3A AA
83 04 0E 09 1B 80 59 D7 14 AD 60 02 14 83 04 16 02 91 01 4E AA 83
02 DB AE AE 71 4A 2C 03 06 19 05 DB DC DD 2C 03 06 19 01 0E 00 5B
77 2E 07 19 01 0E 09 1A FF B6 9B 1A 53 AA 87 10 52 0E 09 1C 03 E9
83 04 02 10 12 B0 62 1A 09 86 01 00 14 62 2F 07 82 01 AB 8C 96 73
16 02 11 7C 03 1A FF AF D6 1A FF A4
)
*FORM* 1. TEST-LIST AND (NIL) ((T)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
(NIL) *NO-CODE* JMPIFNOT1 JMPIFNOT
) )
#Y(#:TOP-LEVEL-FORM-178 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-OR REMOVE-OLD-DEFINITIONS
#Y(C-OR
#166Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 1C 80 52 0E 00 5B 5B 1C
80 53 E0 62 0E 00 78 6A 09 6E 0A 92 01 32 93 01 82 02 AA 92 03 80
46 CE 14 6F 07 AF E4 AC E5 71 31 2F 0E FB 92 03 3B AA 87 0F 3A AA
83 04 0E 09 1B 80 59 D6 14 AD 60 02 14 83 04 16 02 91 01 4E AA 83
02 DB AE AE 71 4A 2C 03 06 19 05 DB DC DD 2C 03 06 19 01 0E 00 5B
77 2E 07 19 01 0E 09 1A FF B6 9B 1A 53 AA 88 10 52 0E 09 1C 03 AA
83 04 02 10 11 B0 62 1A 09 86 01 00 14 62 2F 07 82 01 AB 8C 96 73
16 02 11 7C 03 1A FF AF D5 1A FF A4
)
*FORM* 1. TEST-LIST OR (NIL) ((NIL)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
*NO-CODE* JMPIF1 JMPIF
) )
#Y(#:TOP-LEVEL-FORM-179 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-QUOTE REMOVE-OLD-DEFINITIONS
#Y(C-QUOTE
#40Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB DC 0E 05 1B 07
00 14 2C 03 08 19 02 DE AD 6E 07 7A 02 60 01 1A 70
)
*FORM* 2. TEST-LIST QUOTE (NIL) *FOR-VALUE* CONST NEW-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-180 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-THE REMOVE-OLD-DEFINITIONS
#Y(C-THE
#22Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 5B 77 2E 03 19 01)
*FORM* 3. TEST-LIST C-FORM
) )
#Y(#:TOP-LEVEL-FORM-181 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-DECLARE REMOVE-OLD-DEFINITIONS
#Y(C-DECLARE
#23Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB DC DD 6D 03 06 6A 00 2F 07 19 01
)
*FORM* 1. TEST-LIST "Misplaced declaration: ~S"
"Deklarationen sind an dieser Stelle nicht erlaubt: ~S"
"Une déclaration n'est pas permise ici : ~S" LANGUAGE C-ERROR
) )
#Y(#:TOP-LEVEL-FORM-182 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-LOAD-TIME-VALUE REMOVE-OLD-DEFINITIONS
#Y(C-LOAD-TIME-VALUE
#80Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 DC DD 0E 06 1C 32
DF 0E 08 1B 1C E2 E3 E4 B0 70 5E D1 14 B2 2C 06 0F 14 7A 02 60 01 1A
1B E2 E3 E4 B0 6E 0D D1 1A 6B AD 8E 08 04 AD 87 09 6F E2 E6 E6 B0 2C
04 0F 1A 5F 00 14 2C 03 10 19 02
)
*FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST
*COMPILING-FROM-FILE* C-CONSTANTP :HORIZONT :ALL :VALUE C-CONSTANT-VALUE
:FORM MAKE-CONST MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-183 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-CATCH REMOVE-OLD-DEFINITIONS
#Y(C-CATCH
#66Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 6F 04 DD 0E 06 5C 10
06 DF 0E 00 5B 5B 79 2E 04 11 14 6A 08 6E 09 DD E2 AE D9 71 31 E2 AE
D9 71 31 6F 0B AE E4 AE 7A 02 AF E5 B0 7A 05 2C 03 0E 19 04
)
*FORM* 2. TEST-LIST ONE C-FORM CATCH *STACKZ* PROGN *FOR-VALUE*
MAKE-LABEL ANODE SECLASS-OR-2 CATCH-OPEN (CATCH-CLOSE) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-184 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-THROW REMOVE-OLD-DEFINITIONS
#Y(C-THROW
#63Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB 6F 04 DD 0E 06
5C 10 06 0E 00 5B 5B 77 DF 2F 04 11 14 E0 E1 AD E2 71 31 E1 AD E2 71
31 2F 0B 77 02 79 AD E4 AE D0 7B 03 2C 03 0E 19 03
)
*FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* ALL THROW ANODE 2.
SECLASS-OR-2 (PUSH) ((THROW)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-185 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-UNWIND-PROTECT REMOVE-OLD-DEFINITIONS
#Y(C-UNWIND-PROTECT
#98Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 04 5C 10 04 0E 00 5B 77 2E 05
11 14 DE 0E 04 5C 10 04 DF 0E 00 5B 5B 79 62 2F 05 11 14 62 6E 08 DB
E1 AE D9 71 31 E1 AE D9 71 31 6F 0A E3 AD 7A 02 AF 0E 0C 25 0D 09 D1
1A 07 D2 1A 04 00 1A 01 00 14 E8 B0 B2 E9 B3 7A 02 7A 04 32 02 23 7B
02 2C 03 12 19 04
)
*FORM* 2. TEST-LIST UNWIND-PROTECT *STACKZ* C-FORM CLEANUP PROGN
MAKE-LABEL ANODE SECLASS-OR-2 UNWIND-PROTECT-OPEN *FOR-VALUE*
#S(HASH-TABLE EQ (T . 7.) (ONE . 4.) (NIL . 1.)) ((VALUES0)) ((VALUES1))
(UNWIND-PROTECT-NORMAL-EXIT) UNWIND-PROTECT-CLOSE MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-186 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PROGV REMOVE-OLD-DEFINITIONS
#Y(C-PROGV
#169Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 6F 04 AA 88 05 05
AA 88 06 80 69 E0 0E 09 79 9B 10 09 0E 00 5B 5B 77 DB 2F 04 11 14
E2 0E 09 79 9B 10 09 DF 0E 00 5B 5B 5B 79 2E 04 11 14 63 E3 AC E4
31 31 5A 1B 0A AE E5 30 AC AC E5 30 AC 7C 00 E2 E3 B1 E4 71 31 E3
B0 E4 71 31 6F 0E E3 AE E4 71 31 6F 0E B1 91 03 2E 00 14 B1 91 05
2B 00 14 B1 91 07 28 00 79 32 02 23 79 32 02 23 79 2C 03 13 19 07
DF 0E 00 5B 5B 77 DF 0E 00 5B 5B 5B 79 7A 03 2E 04 19 02 D2 1A 50
D3 1A 53 E9 B4 6A 09 6A 12 7A 04 60 01 1A 4D
)
*FORM* 3. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE PROGN
1. *STACKZ* PROGV ANODE 2. 0. SECLASS-OR-2 ((PUSH)) ((PROGV)) UNWIND
*FOR-VALUE* MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-187 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-PROG1
#123Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 25 04 80 67 E5 E6 E7 E8 E9
EA EB 6D 06 14 7A 02 ED AF EE B0 03 17 61 05 1A 3D DD 0E 06 79 9B
10 06 0E 00 5B 77 2E 07 11 14 E0 0E 06 5C 10 06 E1 0E 00 5B 5B 79
62 2F 07 11 14 E2 E3 AD D9 71 31 E3 AD D9 71 31 6F 0C E3 AD D9 31
31 5B 1B FF B4 AE F0 30 AC AD 60 01 14 2C 03 19 19 04 03 1A 1A 01
CC 14 0E 00 5B 79 2E 07 19 01 00 19 01
)
*FORM* 2. TEST-LIST *FOR-VALUE*
#S(HASH-TABLE EQ (NIL . 95.) (ONE . 91.) (ALL . 24.)) MVCALLP *STACKZ*
C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST
:HORIZONT :ALL :VALUE #.#'VALUES :FORM #'VALUES MAKE-CONST (MVCALLP)
(MV-TO-STACK) ((MVCALL)) 0. MK-ANODE PROG1
) )
#Y(#:TOP-LEVEL-FORM-188 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MULTIPLE-VALUE-CALL REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-CALL
#101Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 1C 80 47 0E 00 5B 77
DC 6F 05 62 AB 83 00 DE 83 00 0E 00 5B 78 DF 92 01 22 93 01 82 02
AB 8D 92 32 CC 14 0E 0A 5C 10 0A AD E3 2F 05 11 14 AA 83 04 E4 83
04 16 02 84 00 91 01 5E 16 02 E5 83 00 E6 E7 AC 71 4A 2C 03 10 19
03 0E 00 5B 77 62 2F 03 19 01 CB 1A 4C
)
*FORM* 2. TEST-LIST C-FUNCTION-CALL ONE C-FORM (MVCALLP) 0. MVCALLP
MVCALL *STACKZ* ALL (MV-TO-STACK) (MVCALL) MULTIPLE-VALUE-CALL (T . T)
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-189 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MULTIPLE-VALUE-LIST REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-LIST
#46Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 03 1B 08 0E 00 5B 77 2E 05
19 01 0E 00 5B 77 DC 6F 05 DE DF AC D9 71 31 AC CB 79 2C 03 09 19 02
)
*FORM* 2. TEST-LIST *FOR-VALUE* ALL C-FORM MULTIPLE-VALUE-LIST ANODE
((MV-TO-LIST)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-190 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
#Y(SETQLIST-MACROP
#35Y(00 01 00 00 00 02 AB 92 00 13 93 00 AA 8E 08 04 AA 87 00 0C 16 01 9B
5B 5B F6 91 00 6D 00 19 03 02 19 04
)
VENV-SEARCH-MACRO
) )
#Y(#:TOP-LEVEL-FORM-191 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-SETQ REMOVE-OLD-DEFINITIONS
#Y(C-SETQ
#163Y(00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 48 8E 96 0A DB DC DD 6D
03 06 6A 00 2F 07 0E 00 5B 1C 3E 0E 00 78 87 09 3C 0E 00 78 E6 62
92 02 26 93 02 9E 5B 77 AA E7 6F 0D AC 8D 08 3C CA 4F 0A ED EE EF
6D 03 06 B0 2F 07 50 F0 83 03 16 03 9D 5B 5B F8 91 02 5A F1 AC AC
71 4A 2C 03 1A 19 04 2D 08 19 01 E2 70 5A E2 0E 00 5B 79 6A 0B 6A
0C 72 02 00 75 02 2E 0D 19 01 AA 83 03 AE E8 AC E9 71 31 2F 12 FA
AC AB 0E 13 1C 04 A2 5B 5B 58 14 6D 03 14 AA 83 04 AF E8 AC E9 71
31 2F 12 FB 16 01 1A FF A9
)
*FORM* 1. TEST-LIST "Odd number of arguments to SETQ: ~S"
"Ungerade viele Argumente zu SETQ: ~S"
"Nombre impair d'arguments pour SETQ : ~S" LANGUAGE C-ERROR C-NIL
SETQLIST-MACROP SETF *VENV* *FENV* C-FORM (NIL) ONE ANODE 2. SECLASS-OR-2
*FOR-VALUE* C-VARSET "Cannot assign to non-symbol ~S."
"Zuweisung auf ~S unmöglich, da kein Symbol."
"Rien ne peut être assigné à ~S car ce n'est pas un symbole." (VALUES1)
SETQ MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-192 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PSETQ REMOVE-OLD-DEFINITIONS
#Y(C-PSETQ
#256Y(00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 48 8E 96 0A DB DC DD 6D
03 06 6A 00 2F 07 0E 00 5B 1C 80 9F 0E 00 78 87 09 80 9C 01 02 0E
00 78 92 00 23 93 00 82 01 93 01 82 02 AA E6 6F 0D AC 8D 08 80 98
CA 4F 0A EA EB EC 6D 03 06 B0 2F 07 50 16 03 91 00 5D 16 01 01 02
ED AE AE 92 01 80 4A 93 01 93 01 EE AB EF 71 31 AF 89 18 80 81 EE
AC EF 71 31 AF 89 18 80 80 F1 83 06 AB 83 06 F2 83 05 AA 83 05 6A
11 D9 30 AC AE EE AD EF 71 31 EE AD EF 71 31 6F 1B 2F 1B FA 0E 11
5B 0F 11 16 02 94 01 82 01 69 01 91 01 FF B6 16 02 0E 1C 1C 03 F5
83 01 64 1E AB AE AE 71 4A 72 02 24 2C 03 1F 19 06 2D 08 19 01 E2
70 5A E2 0E 00 5B 79 6A 0B 6A 0C 72 02 00 75 02 2E 0D 19 01 AA 83
05 AC AB 62 6D 03 0F 83 04 E8 0E 11 5C 0F 11 1A FF 61 AA 83 06 AB
83 06 1A FF 91 AB 83 05 AA 83 05 1A FF 88
)
*FORM* 1. TEST-LIST "Odd number of arguments to PSETQ: ~S"
"Ungerade viele Argumente zu PSETQ: ~S"
"Nombre impair d'arguments pour PSETQ : ~S" LANGUAGE C-ERROR C-NIL
SETQLIST-MACROP PSETF *VENV* *FENV* C-FORM ONE C-VARSET 0. *STACKZ*
"Cannot assign to non-symbol ~S."
"Zuweisung auf ~S unmöglich, da kein Symbol."
"Rien ne peut être assigné à ~S car ce n'est pas un symbole." (NIL) ANODE
2. SECLASSES-COMMUTE (PUSH) (POP) SECLASS-OR-2 *FOR-VALUE* (NIL) PSETQ
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-193 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MULTIPLE-VALUE-SETQ REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-SETQ
#219Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB 2F 02 0E 00
5B 77 62 1A 80 57 16 02 DD 0E 00 5B 79 2E 06 19 01 D0 1A 0D E1 E2
AF E3 71 31 AF 6A 0C 23 07 71 00 79 2C 03 0E 1A 80 9A AA E7 E8 62
6D 03 0E 0E 0C 1C 02 9E 58 14 6D 03 11 AA 83 02 AD E2 AC E3 71 31
2F 12 F9 16 01 1A 80 51 82 00 1A 80 69 86 01 00 14 8E 08 05 AA 87
04 FF AB 82 01 AB 8C 96 6E 16 02 0E 00 5B 77 71 48 0E 00 5B 5B 77
DF 6F 06 0E 08 10 08 AE 8D 92 FF 9A 0E 00 5B 77 E2 AF E3 71 31 62
92 02 24 93 02 AA 8D 08 FF 9A D6 4F 0A EC ED EE 6D 03 17 AE 2F 13
50 16 01 F0 83 00 F1 0E 08 5C 0F 08 82 02 91 02 5C B1 F1 8F 01 2D
FF 98 F2 B2 7A 02 83 00 E1 AC B2 9E 79 2C 03 0E 16 03 11 19 03
)
*FORM* 3. TEST-LIST 0. VENV-SEARCH-MACRO MULTIPLE-VALUE-SETF C-FORM ALL
*STACKZ* MULTIPLE-VALUE-SETQ ANODE 2. *FOR-VALUE* ((VALUES1)) MK-ANODE
NOP (NIL) C-VARSET SECLASS-OR-2 C-ERROR "Cannot assign to non-symbol ~S."
"Zuweisung auf ~S unmöglich, da kein Symbol."
"Rien ne peut être assigné à ~S car ce n'est pas un symbole." LANGUAGE
(POP) 1. NV-TO-STACK
) )
#Y(#:TOP-LEVEL-FORM-194 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PARALLEL-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
#Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE
#192Y(00 03 00 01 00 0A 3C 01 01 02 B0 B0 AF 72 02 23 B0 1A 80 67 93 02
DC 37 01 71 90 DD 62 DE 62 DF B1 6D 08 08 AA AE 0E 09 78 7A 03 83
08 93 01 6A 09 AB 9C 5B 79 AB AB 30 AE 16 03 AB DA 30 AC AA AD 2F
0A 16 02 1A 27 93 02 93 02 D8 AC D9 8E 31 19 00 2A 01 D8 AD DA 31
31 0B 00 00 AA 6C 03 01 94 05 32 00 27 16 01 1B FF AA AB AB 2F 0A
16 01 F6 AE 7F A5 03 82 02 82 01 82 00 9D 1F 06 9C 1F 03 9B 20 43
16 03 AA 7F A7 00 AD 62 AD 71 4A 1A 21 93 00 93 00 9C 5B 77 9D 5B
5B 77 E3 AD 6A 0C AD 7A 04 AC 2E 0D 5C 16 02 F6 AD 7F A5 02 16 01
82 00 9B 20 5C 16 01 AA 7F A7 00 32 03 23 19 06
)
VAR 2. 1.
#Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE-1
#29Y(00 01 00 00 00 02 D9 AC DA 31 31 77 AA 02 59 1D 0A 68 00 01 AB 37
03 30 B7 19 03 19 03
)
NIL ANODE 2.
)
:NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR *STACKZ*
C-BIND-MOVABLE-VAR-ANODE GET *VENVC* C-BIND-MOVABLE-VAR
) )
#Y(#:TOP-LEVEL-FORM-195 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-LET/LET* REMOVE-OLD-DEFINITIONS
#Y(C-LET/LET*
#216Y(00 01 00 00 00 02 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 78
62 6A 04 6A 05 72 02 00 30 62 41 02 6A 06 0E 06 10 06 0E 07 10 07
0E 04 10 04 0E 08 10 08 B7 2E 09 41 03 9D 10 0A 9F 10 0B A1 10 0C
2D 0D 0E 00 5B 77 2E 0E 41 02 DB 0E 06 5C 0F 06 62 0E 08 5C 0F 08
6A 06 6A 08 AD AD 65 22 2C 03 0F 41 03 91 23 06 DB 0E 06 5C 0F 06
E8 04 22 79 6E 11 AD AD 6F 12 AA B0 B2 6D 03 13 91 26 80 48 AF AF
AF 2C 03 16 14 AD EF 6A 06 65 26 6A 18 7A 04 7A 02 72 03 23 91 26
39 03 1A 14 AF AE 7A 01 72 02 23 6E 1B B1 6F 1C AC 6D 03 1D 92 02
0B B2 64 1E 30 AC B1 AD A5 79 30 AC B0 2E 1F 15 16 0A 12 03 16 03
12 04 19 05 98 14 B0 B0 2C 03 15 1A FF B4 03 19 1A 45
)
*FORM* 2. TEST-LIST 0. *VENV* *FENV* *STACKZ* *DENV* *VENVC*
PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS
ANALYZE-LETLIST PROCESS-MOVABLE-VAR-LIST PROGN C-FORM
CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP
C-PARALLEL-BIND-MOVABLE-VAR-ANODE UNWIND *FOR-VALUE* LET* LET
ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE 1. OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-196 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-LOCALLY REMOVE-OLD-DEFINITIONS
#Y(C-LOCALLY
#58Y(00 00 00 01 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 78 62 6A 04
6A 05 72 02 00 30 62 41 02 0E 04 10 04 AD 2E 06 41 03 9D 10 07 2D 08
B6 E1 A7 79 35 01 11 16 03 11 19 04
)
C-FORM *FORM* 1. TEST-LIST *VENV* *FENV* PROCESS-DECLARATIONS *SPECIALS*
PUSH-SPECIALS PROGN
) )
#Y(#:TOP-LEVEL-FORM-197 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MULTIPLE-VALUE-BIND REMOVE-OLD-DEFINITIONS
#Y(C-MULTIPLE-VALUE-BIND
#370Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 77
AA 62 1A 80 53 E2 93 01 0E 00 5B 5B 77 7A 02 7A 01 0E 00 5B 5B 5B
7B 02 2E 0B 19 02 0E 00 5B 5B 77 62 6F 0B EE 0E 00 5B 5B 5B 79 6E
0B EF F0 AD F1 71 31 F0 AD F1 71 31 6F 1A AD AD 7A 02 2C 03 1B 16
02 1A 81 0E 86 01 00 14 8D 08 09 DC DD DE 6D 03 07 AB 2F 08 82 01
AB 8C 96 6A 16 02 AA 71 48 E1 8F 01 2D FF 9E 0E 00 5B 5B 78 62 6A
0C 6A 0D 72 02 00 30 62 41 02 6A 0E 0E 0E 10 0E 0E 0F 10 0F 0E 0C
10 0C 0E 10 10 10 B7 2E 11 41 03 9D 10 12 9F 10 13 A1 10 14 2D 15
92 1B FF 7E 0E 00 5B 5B 77 F4 6F 0B 62 0E 10 5C 0F 10 65 1C 2E 1D
41 02 DB 0E 0E 5C 0F 0E 14 6A 10 AD 62 92 01 13 93 01 AA 2E 1E 6A
0E 83 01 AA 2E 1F 16 01 82 01 91 01 6D AA 31 4A 16 01 F6 EE 04 21
79 6E 0B AF 6E 20 B1 64 21 65 25 71 48 7A 02 AC B0 B2 6D 03 22 B2
B0 B5 62 92 01 1D 93 01 93 04 93 04 6D 03 23 71 49 AB 81 02 23 00
94 03 94 03 82 03 69 03 69 03 91 01 63 AA 31 4A 16 03 F6 AF 64 24
6A 0E 65 27 6A 25 7A 04 7A 02 32 03 23 7B 02 EF F0 B4 F1 71 31 F0
AF F1 71 31 6F 1A B3 6F 26 AC 6D 03 1B 92 02 0A B0 E1 30 AC AF AD
A3 79 30 AC B2 2E 27 15 16 09 12 03 16 03 12 04 19 05
)
*FORM* 3. TEST-LIST 0. "Only symbols may be used as variables, not ~S"
"Nur Symbole können Variable sein, nicht ~S"
"Seuls les symboles peuvent servir de variable et non ~S" LANGUAGE
C-ERROR 1. LET C-FORM *VENV* *FENV* *STACKZ* *DENV* *VENVC*
PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS
PROGN MULTIPLE-VALUE-BIND ANODE 2. SECLASS-OR-2 MK-ANODE ALL
PROCESS-FIXED-VAR-LIST PUSH-*VENV* BIND-FIXED-VAR-2
CHECKING-FIXED-VAR-LIST NV-TO-STACK C-MAKE-CLOSURE C-BIND-FIXED-VAR
UNWIND *FOR-VALUE* SECLASS-WITHOUT OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-198 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-COMPILER-LET REMOVE-OLD-DEFINITIONS
#Y(C-COMPILER-LET
#126Y(00 00 00 01 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC
2F 03 0E 01 5B 77 01 02 92 02 80 45 93 02 8D 08 25 9D 5A 1F 28 9D
5A 77 8E 08 22 9D 5A 5B 1F 1D 9D 5A 5B 5B 1B 17 9D 5A 77 83 01 9D
5A 5B 77 30 5E 14 83 00 1A 15 93 02 83 01 00 1A 74 C8 4F 0B DE DF
E0 6D 03 09 93 06 2F 05 50 82 02 91 02 FF BB AB 71 4A AB 31 4A 13
66 00 04 E2 0E 01 5B 5B 79 35 01 11 18 01 19 05
)
C-FORM *FORM* 2. TEST-LIST 0. C-ERROR
"Illegal syntax in COMPILER-LET: ~S" "Falsche Syntax in COMPILER-LET: ~S"
"Mauvaise syntaxe pour COMPILER-LET : ~S" LANGUAGE PROGN
) )
#Y(#:TOP-LEVEL-FORM-199-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
C-BLOCK REMOVE-OLD-DEFINITIONS
#Y(C-BLOCK
#152Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 AA 8D 08 0F C6 4F 0A
DC DD DE 6D 03 07 AE 2F 03 50 7C 00 E0 0E 09 5C 10 09 6A 0A 6E 0B
E4 6A 0D E6 AD E7 E8 37 01 71 90 E9 62 EA 62 EB 6A 09 6D 08 14 EB
6A 09 ED 62 EE 6A 0A 6D 0C 17 AF 9C 79 0E 18 5C 10 18 F1 0E 00 5B
5B 79 6E 1A E0 AF F3 8D 31 1C 6A 09 64 21 30 AC E0 F4 AC D9 71 31
AC B2 60 02 14 2C 03 20 16 01 11 16 02 11 19 02 E0 F4 AC D9 71 31
F5 B6 8E 8A 01 A7 14 6E 1E B3 7A 03 AD 64 1F B4 60 04 1A 5A
)
*FORM* 2. TEST-LIST C-ERROR "Block name must be a symbol, not ~S"
"Blockname muß ein Symbol sein, nicht ~S"
"Un nom de bloc doit être un symbole et non ~S" LANGUAGE BLOCK *STACKZ*
*FOR-VALUE* MAKE-LABEL :FNODE *FUNC* :LABEL :CONSVAR :NAME :SPECIALP
:CLOSUREP :STACKZ MAKE-VAR :USED-FAR :FOR-VALUE MAKE-BLOCK *BENV* PROGN
C-FORM 5. ANODE BLOCK-OPEN NEW-CONST (BLOCK-CLOSE) MK-ANODE 0.
) )
#Y(#:TOP-LEVEL-FORM-199-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-RETURN-FROM REMOVE-OLD-DEFINITIONS
#Y(C-RETURN-FROM
#253Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 AA 8D 08 0F C7
4F 0A DD DE DF 6D 03 08 AE 2F 04 50 7C 00 AA 6E 09 92 00 25 E5 AB
8D 35 80 49 9B 1F 80 C3 0E 00 5B 5B 77 64 1F 6F 0F EC 64 20 AC EC
AF 6E 21 7A 02 60 02 14 2C 03 18 19 04 E2 E3 E4 6D 03 08 AC 2F 04
19 03 EC ED AC EE 6A 12 E5 B1 DA 31 31 78 E5 B2 E6 71 31 7A 04 EF
E5 B1 D9 71 31 7A 02 60 03 1A 50 0E 00 5B 5B 77 E5 AC E6 71 31 6F
0F E5 AC E8 71 31 0E 11 22 0B 6A 12 E5 AD DA 31 31 78 89 13 41 0E
19 1B 37 6A 11 1A 23 03 1E 1A 39 6A 12 60 01 1A 80 40 AC F2 AC E6
71 31 37 03 70 BB F2 AC E6 AD 31 32 16 01 F2 AB F3 80 31 00 AA E5
AE E8 31 31 22 60 16 01 E5 AC F4 63 31 32 EC F5 AC E5 AF E6 8E 31
44 00 14 EC B0 E5 B2 E8 71 31 0E 11 21 FF BA 00 7B 02 7A 01 32 02
23 5C 1A FF 52 64 22 2E 23 19 03
)
*FORM* 2. 3. TEST-LIST C-ERROR "Block name must be a symbol, not ~S"
"Blockname muß ein Symbol sein, nicht ~S"
"Un nom de bloc doit être un symbole et non ~S" LANGUAGE BENV-SEARCH
"RETURN-FROM block ~S is impossible from here."
"RETURN-FROM auf Block ~S an dieser Stelle nicht möglich."
"RETURN-FROM bloc ~S est impossible à partir d'ici." BLOCK 6. C-FORM 1.
*FUNC* *STACKZ* MAY-UNWIND RETURN-FROM (T . T) UNWIND JMP MK-ANODE
*NO-CODE* FNODE 19. 5. (T . T) ((VALUES0)) ALL (T . T) NEW-CONST
C-RETURN-FROM COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-200 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-TAGBODY REMOVE-OLD-DEFINITIONS
#Y(C-TAGBODY
#322Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 01 02 92 02 26 93 02 9B
20 1A AA 8E 08 04 91 00 80 B0 AA 8D 0A 80 AB C7 4F 0A DD DE DF 6D
03 08 AE 2F 04 50 16 01 82 02 91 02 5A AB 71 4A AB 71 4A 3F 02 16
03 41 02 E1 0E 0A 5C 10 0A E3 6A 0C E5 B0 E6 E7 37 01 71 90 E8 62
E9 62 EA 6A 0A 6D 08 13 EA 6A 0A EC B7 71 48 37 07 CC F8 70 1B 6D
0A 15 EE A1 76 00 9C 79 0E 17 5C 10 17 62 F0 0E 00 78 B5 B5 92 02
1F 93 02 9B 1F 80 50 AA 62 6F 19 AF F2 AC F3 71 31 2F 1C FB AA 83
06 16 01 16 01 82 02 91 02 61 AE 80 4A 04 16 03 F5 B0 64 1E 71 31
71 48 E1 8F 01 30 3A 0E 25 1C 07 AB 64 26 81 02 23 01 F5 AB AD 2C
03 27 16 02 11 16 01 11 19 03 AA 83 02 62 6E 03 83 01 1A FF 57 9D
1F FF BE AA 93 03 8E 03 FF B7 82 02 93 01 82 02 83 05 1A FF AC F5
B0 64 1E 71 31 AA 71 48 E1 62 1A 14 B7 AE AD 72 01 01 BA 37 06 03
1F F7 71 60 71 44 83 00 84 01 AB AD 90 01 2D 66 AA 31 4A 16 01 F6
6A 0A F5 AD 7A 02 30 AC 64 20 64 21 64 22 AF 72 00 26 6E 23 9D 7B
02 AF 64 24 32 02 23 5C FA 16 03 1A FF 80
)
*FORM* 1. TEST-LIST MAKE-LABEL C-ERROR
"Only numbers and symbols are valid tags, not ~S"
"Nur Zahlen und Symbole sind zulässige Sprungziele, nicht aber ~S"
"Seuls les symboles et les nombres peuvent servir de marqueur de saut et non ~S"
LANGUAGE 0. *STACKZ* :FNODE *FUNC* :LABELLIST :CONSVAR :NAME :SPECIALP
:CLOSUREP :STACKZ MAKE-VAR :USED-FAR MAKE-TAGBODY #.#'VECTOR *GENV* (NIL)
C-FORM ANODE 2. SECLASS-OR-2 TAGBODY 5. #.#'EQL TAGBODY-OPEN
SIMPLE-VECTOR
#Y(C-TAGBODY-1 #16Y(00 01 00 00 00 02 AB 31 8A 1E 03 9C 19 02 19 02))
NEW-CONST ((TAGBODY-CLOSE-NIL)) *FOR-VALUE* ((NIL)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-201 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-GO REMOVE-OLD-DEFINITIONS
#Y(C-GO
#255Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 AA 8E 08 03 91
00 0D AA 8D 0A 09 DB DC DD 6D 03 06 AB 2F 07 AA 2E 08 41 02 92 01
1B E4 AC 8D 35 3E 9C 1F 80 C3 EA 64 20 EA AE 6E 21 AE 7A 03 60 01
14 2C 03 17 19 04 E1 E2 E3 6D 03 06 AD 2F 07 19 04 EA EB EC 6A 0F
E4 B0 E8 71 31 03 15 7B 03 EE AE E4 B1 D9 71 31 70 98 7A 02 60 02
1A 52 E4 AC E5 71 31 0E 0E 22 0A 6A 0F E4 AD E8 71 31 89 11 50 F0
0E 19 1B 80 55 E4 AD F2 71 31 AA 71 48 F0 1A 10 15 16 02 1A 18 AC
AB 72 01 01 B1 8D 03 72 84 00 AA AC 90 01 2D 6F B0 AD 30 18 9C 16
03 F6 6A 0E 1A 1E 6A 0F 60 01 1A 34 AD F3 AC F4 71 31 37 03 70 BB
F3 AC F4 AD 31 32 16 01 F3 AB F5 80 31 00 AA E4 AF E5 31 31 22 60
16 01 EA 64 1E 64 1F EA B0 AF E4 B3 E5 71 31 0E 0E 21 47 00 7B 03
7A 02 2C 03 17 19 05 64 22 2E 23 19 04
)
*FORM* 2. TEST-LIST "Tag must be a symbol or a number, not ~S"
"Sprungziel muß ein Symbol oder eine Zahl sein, nicht ~S"
"Le marqueur de saut doit être un symbole ou un nombre et non ~S"
LANGUAGE C-ERROR GENV-SEARCH "GO to tag ~S is impossible from here."
"GO auf Tag ~S an dieser Stelle nicht möglich."
"GO vers le marqueur ~S n'est pas possible ici." TAGBODY 1. *FUNC*
*STACKZ* 3. MAY-UNWIND GO (T . T) UNWIND (NIL) JMP MK-ANODE 0. *NO-CODE*
5. FNODE 8. 19. (T . T) (VALUES0) (T . T) NEW-CONST C-GO COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-202 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FUNCTION REMOVE-OLD-DEFINITIONS
#Y(C-FUNCTION
#263Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 78 0E 00 5B 77 91
01 04 AA 87 04 22 6A 00 37 01 30 A0 77 9B 1F 0A 93 00 24 27 05 9B
5B 20 80 AA 64 30 64 31 64 32 6D 03 1A AB 2F 1B 19 04 AA 2E 05 41
03 9D 25 06 80 89 E6 E7 E8 E9 A4 5D 14 EA E3 B6 7A 02 2C 06 13 1A
80 61 0E 07 1C 17 AD 8B 53 13 AD 6A 08 E1 37 02 8B B7 0A AD 6A 0A
E1 37 02 30 BB 0F 0A E3 E4 AF 8C 01 04 AF 88 0D 49 E6 B0 6E 14 7A
02 03 15 5C 1A 36 EF F0 F1 6D 03 1A AE 2F 1B 19 06 E3 F4 E6 AE 6E
1D 7A 02 64 1E E6 AF 6E 1D 7A 02 03 1F 61 03 1A 15 E6 AC 8E 35 16
E3 64 20 64 21 E6 AF 64 22 31 31 14 7A 02 60 01 14 2C 03 16 19 06
64 23 AC 64 22 71 31 2E 24 19 06 64 25 2E 26 19 06 9F 1A 23 0E 28
1B 03 0E 29 58 10 28 92 05 04 AE 87 04 6D 6A 2A 64 2B AB 64 22 80
31 00 6A 2C 31 97 0F 2C 14 2F 2D 14 94 04 6F 2E 2E 2F 11 19 04
)
*FORM* 2. 3. TEST-LIST FUNCTION-NAME-P FENV-SEARCH
#S(HASH-TABLE EQ (LOCAL . 101.) (GLOBAL . 79.) (MACRO . 68.) (NIL . 20.))
*COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS*
FUNCTION (T) DECLARED-NOTINLINE CONST :HORIZONT :ALL :VALUE :FORM
MAKE-CONST MAKE-FUNNAME-CONST ((SYMBOL-FUNCTION)) MK-ANODE
"~S is not a function. It is a locally defined macro."
"~S ist keine Funktion, sondern ein lokal definierter Macro."
"~S n'est pas une fonction mais une macro définie localement." LANGUAGE
C-ERROR (T) NEW-CONST (PUSH) ((SVREF)) (NIL) FCONST 1. VAR C-VAR
C-FUNCTION COMPILER-ERROR LAMBDA *NO-CODE* *FOR-VALUE* *FUNC* FNODE
*ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
"Only symbols and lambda expressions are function names, not ~S"
"Nur Symbole und Lambda-Ausdrücke sind Namen von Funktionen, nicht ~S"
"Seuls les symboles et les expressions lambda sont des noms de fonction et non ~S"
) )
#Y(#:TOP-LEVEL-FORM-203 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-%GENERIC-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(C-%GENERIC-FUNCTION-LAMBDA
#50Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1B 03 0E 04 58 10 03 6A 05 DE
AB D9 80 31 00 6A 07 31 97 0F 07 14 6F 08 0E 00 78 62 63 6D 04 09 2E
0A 11 19 01
)
*FORM* 1. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT*
SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
) )
#Y(#:TOP-LEVEL-FORM-204
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS MACRO
#Y(%OPTIMIZE-FUNCTION-LAMBDA
#34Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 0F 9D 5B 78 DA DB DC 9E 79 7A
02 C8 61 02 19 04 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR CONS FUNCTION LAMBDA (NIL)
) )
#Y(#:TOP-LEVEL-FORM-205 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(C-%OPTIMIZE-FUNCTION-LAMBDA
#124Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1B 03 0E 04 58 10 03 0E 00
5B 77 70 A2 6A 05 DE AB DF 80 31 00 6A 08 31 97 0F 08 14 6F 09 0E
00 5B 78 01 02 AE 6D 05 0A 6E 0B 62 AC 1A 0C 93 00 AA CF 59 14 83
02 16 01 82 00 9B 20 71 16 01 AA 7F A7 00 DF 0E 0D 5C 10 0D E6 AE
60 02 10 00 2D 0F 12 02 14 E8 E9 AE D9 71 31 E9 AD D9 71 31 6F 12
AE EB AE D7 7B 03 2C 03 15 16 04 11 19 01
)
*FORM* 2. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE 1.
*ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION GONE
*STACKZ* QUOTE C-QUOTE %OPTIMIZE-FUNCTION-LAMBDA ANODE SECLASS-OR-2
(PUSH) ((CONS)) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-206-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
C-FLET REMOVE-OLD-DEFINITIONS
#Y(C-FLET
#348Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 77
01 02 92 02 25 93 02 9B 1F 0A 93 00 88 04 05 9B 5B 20 81 06 CD 4F
0C E3 E4 E5 6D 03 0E E7 AF 2C 03 0A 50 16 01 82 02 91 02 5B AB 71
4A AB 71 4A 3F 02 16 03 41 02 6A 10 0E 10 10 10 0E 11 10 11 0E 12
10 12 DB 0E 10 5C 0F 10 62 0E 11 5C 0F 11 6A 10 6A 11 B7 B7 01 03
92 04 80 4C 93 04 83 00 93 03 DE AB EB 71 31 8D 92 80 CB AA 6E 17
83 02 DF 0E 10 5C 0F 10 F0 37 01 71 90 F1 62 F2 62 F3 63 F4 62 F5
62 64 1E 6A 10 64 1F 6A 11 6D 10 20 AB 7A 01 9C 79 83 02 AA 83 04
16 01 16 01 94 04 82 04 69 04 91 04 FF B4 AC 71 4A AC 71 4A 64 21
6A 22 9F 79 31 4A 76 00 3F 03 16 05 41 03 9B 10 22 98 23 A1 36 00
64 24 0E 00 5B 5B 79 6E 25 B0 B0 6F 26 E7 B1 AD 7A 01 72 02 23 6E
27 B3 6F 28 AC B5 B7 6D 03 29 98 2A B5 B5 6D 03 2B AF 64 2C 6A 10
65 1A 6A 2D 7A 04 7A 02 72 03 23 6D 03 2E 92 01 0A B4 DF 30 AC B3
AC A7 79 30 AC B2 2E 2F 15 16 02 11 16 05 12 03 19 04 6A 05 DE AB
DF 80 31 00 93 01 6F 08 94 01 6F 09 93 01 83 03 AA 83 02 16 01 1A
FE ED AA 7A 01 EC ED ED AE 2C 04 16 79 83 01 1A FF 56
)
*FORM* 2. TEST-LIST 0. FUNCTION-NAME-P *FUNC* FNODE 1. SYMBOL-SUFFIX
C-LAMBDABODY C-ERROR "Illegal function definition syntax in ~S: ~S"
"Falsche Syntax einer Funktionsdefinition in ~S: ~S"
"Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE FLET
*STACKZ* *VENVC* *VENV* 9. :HORIZONT :VALUE MAKE-CONST C-FNODE-FUNCTION
:NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
MAKE-VAR #.#'VECTOR *FENV* PUSH-*VENV* PROGN C-FORM
CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT
C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE*
MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-206-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
C-LABELS REMOVE-OLD-DEFINITIONS
#Y(C-LABELS
#420Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 6A 04 0E 04
10 04 0E 05 10 05 0E 06 10 06 DB 0E 04 5C 0F 04 62 0E 05 5C 0F 05
6A 04 6A 05 0E 00 5B 77 01 05 92 05 26 93 05 9B 1F 0A 93 00 88 07
05 9B 5B 20 80 64 03 17 4F 0C F0 F1 F2 6D 03 1B ED AF 2C 03 17 50
16 01 82 05 91 05 5A AE 71 4A AE 71 4A AE 71 4A AE 71 4A AE 71 4A
3F 05 16 06 41 05 AE AB 62 92 02 11 93 02 83 00 93 01 83 00 94 02
82 02 69 02 91 02 6F 6A 1C 83 00 F5 AB 31 4A 36 00 16 03 10 1C 98
1E A2 36 00 98 1F B0 B0 B0 72 02 17 62 AB B3 1A 80 66 93 00 83 05
E0 0E 04 5C 0F 04 E1 37 01 71 90 E2 62 E3 62 E4 63 E5 62 E6 62 E7
6A 04 E8 6A 05 6D 10 11 83 04 6A 12 EB AB E0 80 31 00 93 01 6F 14
83 03 94 00 83 02 62 ED 9D 5B 77 2E 16 42 5C 79 A0 5A 79 83 01 1A
FF 64 16 03 1A 1F 93 01 9C 1F 77 93 01 AB 64 20 AC 64 21 31 31 78
6F 22 83 04 16 02 82 01 82 00 9C 20 63 16 02 AA 7F A7 00 64 23 0E
00 5B 5B 79 6E 24 B3 AD 92 01 2D 93 01 93 01 EB AB 64 25 71 31 8E
92 15 64 20 AC 64 26 63 31 32 AA 6E 27 64 20 AD 64 28 AD 31 32 16
01 16 02 94 01 82 01 69 01 91 01 53 16 02 B3 AC 6F 29 ED AD AD 7A
01 72 02 23 6E 2A B6 6F 2B AC B9 BB 6D 03 2C 98 2D B8 B1 6D 03 2E
AF 64 2F 6A 04 65 1E 6A 30 7A 04 7A 02 72 03 23 6D 03 31 92 01 0B
B8 E0 30 AC B7 AC 04 10 79 30 AC B5 2E 32 15 16 04 11 16 07 12 03
19 02
)
*FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME
:SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
MAKE-VAR *FUNC* FNODE SYMBOL-SUFFIX LABELS ANALYZE-LAMBDALIST C-ERROR
"Illegal function definition syntax in ~S: ~S"
"Falsche Syntax einer Funktionsdefinition in ~S: ~S"
"Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE *FENV*
#.#'VECTOR PUSH-*VENV* C-LAMBDABODY VAR 10. C-FNODE-FUNCTION PROGN C-FORM
9. 3. NEW-CONST 4. CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
*FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-206-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
C-GENERIC-FLET REMOVE-OLD-DEFINITIONS
#Y(C-GENERIC-FLET
#342Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 77
01 03 92 03 25 93 03 9B 1F 0A 93 00 88 04 05 9B 5B 20 81 04 CD 4F
0C E3 E4 E5 6D 03 0E DD AF 2C 03 0A 50 16 01 82 03 91 03 5B AC 71
4A AC 71 4A AC 71 4A 3F 03 16 04 41 03 6A 0F 0E 0F 10 0F 0E 10 10
10 0E 07 10 07 DB 0E 0F 5C 0F 0F 62 0E 10 5C 0F 10 6A 0F 6A 10 B8
B8 B8 01 03 92 05 80 46 93 05 83 00 93 03 E9 6F 12 83 01 EB 0E 0F
5C 0F 0F EC 37 01 71 90 ED 62 EE 62 EF 63 F0 62 F1 62 F2 6A 0F F3
6A 10 6D 10 1C 62 F5 A2 5A 7B 02 9C 79 83 01 AA 83 03 16 01 94 05
94 05 82 05 69 05 69 05 91 05 FF BA AC 71 4A AC 71 4A 64 1E 6A 08
9F 79 31 4A 76 00 3F 03 16 06 41 03 9B 10 08 98 1F A1 36 00 64 20
0E 00 5B 5B 79 6E 12 B0 B0 6F 21 DD B1 AD 7A 01 72 02 23 6E 22 B3
6F 23 AC B5 B7 6D 03 24 98 25 B5 B5 6D 03 26 AF 64 27 6A 0F 65 1A
6A 28 7A 04 7A 02 72 03 23 6D 03 29 92 01 0A B4 EB 30 AC B3 AC A7
79 30 AC B2 2E 2A 15 16 02 11 16 05 12 03 19 05 93 00 AA 83 04 DD
AB 9E 5B 77 6D 03 06 83 03 DD AB 9E 5B 77 9F 5B 78 6A 07 6A 08 72
02 00 6D 05 09 83 02 16 01 1A FE E3
)
*FORM* 2. TEST-LIST 0. FUNCTION-NAME-P CLOS:GENERIC-FLET
CLOS::DEFGENERIC-LAMBDALIST-CALLINFO *VENV* *FENV*
CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
"Illegal function definition syntax in ~S: ~S"
"Falsche Syntax einer Funktionsdefinition in ~S: ~S"
"Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE
*STACKZ* *VENVC* ONE C-FORM 1. :NAME :SPECIALP :CONSTANTP :USEDP
:REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC #.#'VECTOR
PUSH-*VENV* PROGN CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
*FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-206-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-GENERIC-LABELS REMOVE-OLD-DEFINITIONS
#Y(C-GENERIC-LABELS
#345Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 6A 04 0E 04
10 04 0E 05 10 05 0E 06 10 06 DB 0E 04 5C 0F 04 62 0E 05 5C 0F 05
6A 04 6A 05 0E 00 5B 77 01 04 92 04 26 93 04 9B 1F 0A 93 00 88 07
05 9B 5B 20 80 58 03 17 4F 0C F0 F1 F2 6D 03 1B EB AF 2C 03 17 50
16 01 82 04 91 04 5A AD 71 4A AD 71 4A AD 71 4A AD 71 4A 3F 04 16
05 41 04 AD AC 62 92 02 11 93 02 83 00 93 01 83 00 94 02 82 02 69
02 91 02 6F 6A 15 83 00 F4 AB 31 4A 36 00 16 03 10 15 98 1D A1 36
00 62 AE 1A 80 5C 93 00 AA 83 05 E0 0E 04 5C 0F 04 E1 37 01 71 90
E2 62 E3 62 E4 63 E5 62 E6 62 E7 6A 04 E8 6A 05 6D 10 11 83 04 62
EA EB AD A0 5B 77 2C 03 14 7B 02 A0 5A 79 83 03 EB AB 9E 5B 77 9F
5B 78 6A 06 6A 15 72 02 00 6D 05 16 83 02 16 01 1A FF 69 93 00 AA
64 1E 6F 1F 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A7 00 64 20 0E
00 5B 5B 79 6E 1F B1 AC 6F 21 EB AD AD 7A 01 72 02 23 6E 22 B4 6F
23 AC B7 B9 6D 03 24 98 25 B6 B1 6D 03 26 AF 64 27 6A 04 65 1C 6A
28 7A 04 7A 02 72 03 23 6D 03 29 92 01 0A B6 E0 30 AC B5 AC A9 79
30 AC B3 2E 2A 15 16 03 11 16 06 12 03 19 02
)
*FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME
:SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
MAKE-VAR GENERIC CLOS:GENERIC-LABELS CLOS::DEFGENERIC-LAMBDALIST-CALLINFO
*FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
"Illegal function definition syntax in ~S: ~S"
"Falsche Syntax einer Funktionsdefinition in ~S: ~S"
"Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE
#.#'VECTOR PUSH-*VENV* ONE C-FORM PROGN CHECKING-MOVABLE-VAR-LIST
ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE
OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-207 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MACROLET REMOVE-OLD-DEFINITIONS
#Y(C-MACROLET
#75Y(00 00 00 01 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC 2F
03 0E 01 5B 77 62 92 01 13 93 01 93 00 AA 83 02 AB 6E 05 83 02 16 02
82 01 91 01 6D 6A 06 83 00 DF AB 31 4A 36 00 10 06 B0 E0 0E 01 5B 5B
79 35 01 11 19 04
)
C-FORM *FORM* 2. TEST-LIST 0. MAKE-MACRO-EXPANDERCONS *FENV* #.#'VECTOR
PROGN
) )
#Y(#:TOP-LEVEL-FORM-208 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-SYMBOL-MACROLET REMOVE-OLD-DEFINITIONS
#Y(C-SYMBOL-MACROLET
#239Y(00 00 00 01 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC
2F 03 0E 01 5B 78 62 6A 05 6A 06 72 02 00 30 62 41 02 0E 07 10 07
0E 05 10 05 B0 2E 08 41 03 9D 10 09 9F 10 0A A1 10 0B 2D 0C 0E 01
5B 77 01 02 92 02 27 93 02 9B 1F 0E 93 00 8E 08 09 9B 5B 1F 05 9B
5B 5B 1C 28 D0 4F 0A E6 E7 E8 6D 03 11 AE 2F 0D 50 16 01 82 02 91
02 59 AB 71 4A AB 71 4A 3F 02 16 03 41 02 6A 09 AC 6F 12 62 1A 1F
93 00 83 02 9B 5B 77 83 01 1A 5A 86 01 00 D0 4F 0C EB EC ED 6D 03
11 EE AF 2C 03 0D 50 82 01 AB 8C 96 68 16 02 EF 62 AD AD 1A 1B 16
03 1A 1C 93 01 9C 1F 77 93 01 AB AB 6E 18 7A 02 AF 7F A6 04 16 02
82 01 82 00 9C 20 66 16 02 AA 7F A7 00 6A 05 7A 01 32 02 24 36 00
0F 05 C1 F1 04 17 79 35 01 16 02 12 03 16 03 12 02 19 04
)
C-FORM *FORM* 2. TEST-LIST 0. *VENV* *FENV* *DENV* PROCESS-DECLARATIONS
*SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS C-ERROR
"Illegal syntax in SYMBOL-MACROLET: ~S"
"Falsche Syntax in SYMBOL-MACROLET: ~S"
"Mauvaise syntaxe pour SYMBOL-MACROLET : ~S" LANGUAGE INTERSECTION
"~S: symbol ~S must not be declared SPECIAL and a macro at the same time"
"~S: Symbol ~S darf nicht gleichzeitig SPECIAL und Makro deklariert werden."
"~S : Le symbole ~S ne peut être déclaré SPECIAL et macro en même temps."
SYMBOL-MACROLET #.#'VECTOR MAKE-SYMBOL-MACRO PROGN
) )
#Y(#:TOP-LEVEL-FORM-209 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-EVAL-WHEN REMOVE-OLD-DEFINITIONS
#Y(C-EVAL-WHEN
#116Y(00 00 00 01 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC
2F 03 01 03 0E 01 5B 77 62 1A 34 86 01 00 25 05 0D 7D 03 1A 28 7D
02 1A 24 7D 04 F9 1A 1F AA DE 8D 04 76 AA DF 8E 04 0C 7D 04 1A 11
AA 2E 0E 1A 23 9C 1A 25 E0 E1 E2 6D 03 0B AB 2F 0C 82 01 AB 8C 96
48 16 02 E5 0E 01 5B 5B 79 91 02 5E 92 01 03 AA 30 5E AF 91 04 59
00 14 35 01 19 06
)
C-FORM *FORM* 2. TEST-LIST 0.
#S(HASH-TABLE EQ (COMPILE-ONCE-ONLY . 5.) (EVAL . 45.) (COMPILE . 1.)
(LOAD . 24.)
)
(NOT EVAL) (NOT COMPILE)
"EVAL-WHEN situation must be EVAL or LOAD or COMPILE, but not ~S"
"Situation bei EVAL-WHEN muß EVAL, LOAD oder COMPILE sein, nicht ~S."
"EVAL-WHEN ne s'applique qu'aux situations EVAL, LOAD ou COMPILE et non ~S."
LANGUAGE C-ERROR PROGN C-EVAL-WHEN-COMPILE
) )
#Y(#:TOP-LEVEL-FORM-210 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-COND REMOVE-OLD-DEFINITIONS
#Y(C-COND
#75Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 92 00 1A 93 00 9B 1F 18 93
00 9C 5B 1B 1F E3 AB E2 A0 5B 79 60 03 16 02 F6 2E 0C 19 01 00 1A 78
DB DC DD 6D 03 06 AB 2F 07 16 01 1A 6B E0 AB E1 9F 5B 79 E2 A1 5B 79
60 04 16 02 1A 5B
)
*FORM* 1. TEST-LIST "COND clause without test: ~S"
"COND-Klausel ohne Test: ~S" "Clause COND sans test : ~S" LANGUAGE
C-ERROR IF PROGN COND OR C-FORM
) )
#Y(#:TOP-LEVEL-FORM-211 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-CASE REMOVE-OLD-DEFINITIONS
#Y(C-CASE
#495Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 01 03 AD
1A 80 AD DB DC DD 6D 03 06 AB 2F 07 16 01 1A 80 9F 7C 00 1A 80 92
92 02 11 CA 4F 0E E1 E2 E3 6D 03 06 E4 AF 6A 00 2C 04 07 50 7D 00
F9 1A 80 78 9C 1A 1C 93 00 82 01 9B 1F 49 93 00 91 03 52 AA 02 21
53 AA 23 08 4F 62 AB 8D 0D 64 AB 60 01 14 62 1A 80 48 AA 83 07 AA
83 02 1A 3E 00 2A 01 37 01 31 90 0B 00 00 AA 6C 14 01 ED 67 02 00
B1 7A 02 7A 01 EE 67 04 00 B1 A0 73 7A 03 7A 03 2E 17 19 07 86 01
00 14 B2 E5 37 02 8C B7 47 E6 E7 E8 6D 03 06 E4 AC 6A 00 2C 04 11
82 01 AB 8C 96 62 16 02 AA 80 4A 01 16 01 AA 9D 5B 79 83 05 16 02
AA 8C 96 FF 7E 16 01 91 00 03 EA 83 02 AC 80 4A 02 AB 80 4A 01 F6
71 48 EB 8F 01 31 FF 8E AD F0 6F 17 01 02 AE 62 1A 80 59 9B FA 16
01 1A 80 50 EE 9C 5B 79 6E 17 9C 5A 1F 6F 93 01 62 6E 19 AC 7A 03
83 03 16 01 1A 38 AC 6E 1C AB 62 1A 14 9B 5B 5B 5A 19 0B 86 01 00
AC 93 01 E5 37 02 8B B7 6E 82 01 AB 8C 96 6E 9F 19 0B 03 1F 1A 33
86 01 00 5A 1B FF BB 02 10 1A EE 9F 5B 79 62 2F 17 11 82 01 AB 8C
96 68 16 02 AA 80 4A 00 AC 87 1B FF B7 62 6E 19 6A 1D 6E 19 98 1E
B0 8F 00 28 4B 03 20 14 E4 B0 64 21 B0 72 00 17 B1 7A 01 32 02 23
79 6E 22 B1 64 23 AE 62 B3 1A 28 93 00 9B 5B 77 62 93 02 1A 0B 93
00 AA 9F 79 83 02 16 01 82 00 9B 20 72 16 01 AA 30 A7 16 01 F6 AD
7F A5 02 16 01 82 00 9B 20 55 16 01 AA 7F A7 00 B2 64 24 B5 32 00
17 7B 04 62 B2 1A 18 93 00 9B 5B 77 9C 5B 5B 77 64 25 B5 7A 02 7A
03 AD 7F A5 02 16 01 82 00 9B 20 65 16 01 AA 7F A7 00 B1 B4 B2 7A
03 32 02 23 7B 02 2C 03 26 19 0B
)
*FORM* 1. TEST-LIST "CASE clause without objects: ~S"
"CASE-Klausel ohne Objekte: ~S" "Clause CASE sans objets LISP : ~S"
LANGUAGE C-ERROR OTHERWISE "~S: the ~S clause must be the last one: ~S"
"~S: Die ~S-Klausel muß die letzte sein: ~S"
"~S : La clause ~S doit être la dernière: ~S" CASE #.#'EQL
"Duplicate ~S label ~S : ~S" "Doppelt aufgeführter ~S-Fall ~S : ~S"
"~S : Le choix ~S se répète: ~S" C-WARN (T NIL) 2.
#Y(C-CASE-IFIFY
#74Y(00 01 00 00 00 02 91 01 2A 00 19 02 DA 62 AC 1A 12 93 00 DB 68 00
01 DC AD 7A 02 7A 03 83 02 16 01 82 00 9B 20 6B 16 01 AA 30 A7 16
01 5C 1A 0C 92 01 56 D9 9D 5A 77 AA 8D 0D 51 02 F6 DD 9F 5A 5B 79
94 04 6B 6A 60 04 19 02
)
NIL IF OR EQL QUOTE PROGN
)
LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP
ANODE-CONSTANT-VALUE *FOR-VALUE* EQL=EQ EQ EQL #.#'THIRD
ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-212 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-HANDLER-BIND REMOVE-OLD-DEFINITIONS
#Y(C-HANDLER-BIND
#302Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 78
01 03 0E 00 5B 77 62 1A 80 B1 86 01 00 14 D9 D9 2C 03 02 93 00 9C
5B 77 46 04 26 AC 2B 05 01 10 06 B1 DF A9 79 2F 08 11 47 1C 18 02
10 09 00 10 0A B0 2E 0B 12 02 1A 80 7E 64 23 9F 79 2E 0B 19 05 1B
68 E4 6E 0D AC 83 07 AA 83 06 E6 0E 0F 5C 10 0F 6A 0F 0E 10 10 10
E9 0E 0F 5C 0F 0F 37 01 71 90 EA EB 62 6D 03 14 AB AB 6F 15 AA 2E
16 EF B6 AE 7A 03 62 6F 0B AB 7A 01 AD 7A 01 2F 18 B5 F1 AD AF 6F
1A AD F3 6A 0F 6A 1C 7A 03 F5 6A 0F B8 03 1E 7B 03 03 1F 7B 03 32
02 23 7B 02 64 20 64 21 AC 6D 03 14 AD 7A 01 2E 22 15 16 05 11 16
01 11 14 83 05 16 01 16 02 82 01 AB 8C 96 FF 4A 16 02 92 02 FF 73
AC 80 4A 02 AB 80 4A 01 AA 80 4A 00 62 6E 0D 6A 0F 64 24 0E 0F 5C
10 0F 64 23 A4 79 6E 0B 64 25 AB A3 79 6E 26 64 27 B5 64 28 71 2D
6E 29 6A 0F A7 7B 03 64 2A B3 7A 02 B4 B4 B0 F5 6A 0F B7 6A 0A 7A
04 7A 03 32 02 23 7B 02 2C 03 14 16 01 11 19 07
)
*FORM* 2. TEST-LIST 0. TRY-SUBTYPEP
#Y(C-HANDLER-BIND-1 #9Y(00 00 00 00 01 16 00 48 00) NIL) *ERROR-HANDLER*
OR SUBTYPEP *NO-CODE* *FOR-VALUE* C-FORM ONE MAKE-LABEL ANYTHING *STACKZ*
*VENV* 1. CONDITION (T) MK-ANODE BIND-MOVABLE-VAR PUSH-*VENV* %FUNCALL
CHECKING-MOVABLE-VAR-LIST (HANDLER-BEGIN) C-BIND-MOVABLE-VAR-ANODE
UNWINDSP *FUNC* UNWIND (NIL) ((RET)) HANDLER (T . T) OPTIMIZE-VAR-LIST
PROGN 4. HANDLER-BIND ANODELIST-SECLASS-OR HANDLER-OPEN VECTOR NEW-CONST
JMP
) )
#Y(#:TOP-LEVEL-FORM-213 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-CONSTANT-EQL REMOVE-OLD-DEFINITIONS
#Y(C-CONSTANT-EQL
#58Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 78 0E 03
1C 0F AB 88 04 0B AB 6E 05 AA 8E 09 0C 16 01 1B 0F CB 14 9C 79 2E 07
19 03 AA 31 24 16 01 1C 71 C9 1A 6F
)
*FORM* 4. TEST-LIST *COMPILING-FROM-FILE* C-CONSTANTP C-CONSTANT-VALUE
LOOSE-CONSTANT-EQL C-FORM EQL
) )
#Y(#:TOP-LEVEL-FORM-214 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FUNCALL-NOTINLINE REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL-NOTINLINE
#73Y(00 02 00 00 00 03 AB D8 2F 01 AC DA 6F 03 DC 0E 05 5C 10 05 AF DE AF
7A 02 92 01 18 93 01 DA 6F 03 AA 83 01 16 01 DF 83 00 DC 0E 05 5C 0F
05 82 01 91 01 68 E0 B2 71 48 7A 02 83 00 E0 E1 AC 71 4A 2C 03 0A 16
02 11 19 04
)
0. TEST-LIST ONE C-FORM 1. *STACKZ* (FUNCALLP) (PUSH) FUNCALL (T . T)
MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-215 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FUNCALL-INLINE REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL-INLINE
#1070Y(00 05 00 00 00 06 00 2A 01 7E 04 00 00 AD D8 2F 01 93 03 82 04 2E
02 41 0D 91 07 0F 91 06 0C 91 05 09 91 04 06 91 03 03 92 02 03 DB
2E 04 B6 71 48 B6 71 48 BE 71 48 91 0B 0B AA AD AD 72 02 35 8F 01
30 82 F7 06 10 00 1B 23 AA AD 90 01 2F 1D C8 4F 0B E5 E6 E7 6D 03
09 65 1A 2F 05 50 BF AD AC 72 01 36 62 70 A1 81 02 23 15 9D F6 04
10 2A 05 6A 10 0E 11 0B 01 00 0E 12 0B 01 01 0E 13 0B 01 02 0E 14
0B 01 03 0E 15 0B 01 04 6A 10 92 15 02 0E 11 14 6A 16 92 17 02 0E
12 14 92 18 02 0E 13 14 92 19 02 0E 14 14 91 1A 82 E6 EF 65 1F 7A
02 F0 6A 15 37 05 31 51 5C 10 15 A3 10 10 A5 10 11 A7 10 16 A9 10
12 04 10 10 13 04 12 10 14 65 30 63 6A 11 6A 12 72 02 00 30 62 41
02 04 1E 2A 0E 00 10 19 00 10 1A 00 10 1B 01 09 00 0B 12 00 0B 12
01 0B 12 02 0B 12 03 0B 12 04 0B 12 05 0B 12 06 0B 12 07 0B 12 08
0B 12 09 0B 12 0A 0B 12 0B 0B 12 0C 0B 12 0D 14 01 03 C1 2E 1C 41
03 15 0F 1B 15 0F 1A 15 0F 19 2D 1D E2 0E 10 5C 0F 10 62 0E 16 5C
0F 16 0E 10 F7 0E 16 F6 C0 6C 1E 01 65 46 92 00 80 43 92 4D 82 4D
93 4D 82 4E 06 38 00 10 11 06 3B 01 10 12 06 3E 02 10 13 06 41 03
10 14 06 44 04 10 15 B9 64 1F 2F 20 12 05 14 93 02 AB 6F 21 AB 83
10 AA 83 11 6A 10 83 0F AA 2E 22 16 03 82 00 91 00 FF BD 16 01 65
45 65 45 65 45 92 02 80 40 06 4A 00 1C 04 92 4F 82 09 04 4F 58 58
14 91 00 82 0D 93 02 64 1F 2F 20 14 93 04 AB 6F 21 AB 83 0F AA 83
10 6A 10 83 0E AA 2E 22 93 03 24 0A 82 1D 16 03 94 02 94 02 82 02
69 02 69 02 91 02 40 16 03 65 42 23 0A 82 22 06 47 00 1B 82 39 91
4C 82 3F 00 14 06 37 00 10 11 06 3A 01 10 12 06 3D 02 10 13 06 40
03 10 14 06 43 04 10 15 B9 64 1F 2F 20 12 05 14 65 44 AB 6F 21 AB
83 09 AA 83 0A 6A 10 83 08 AA 2E 22 16 03 E2 0E 10 5C 0F 10 0B 17
01 16 01 B6 80 4A 0C B5 80 4A 0B B4 80 4A 0A B3 80 4A 09 B2 80 4A
08 B1 80 4A 07 65 3A 65 3A 2F 26 41 02 69 03 69 03 64 27 04 19 79
6E 20 B7 B5 B3 67 1A 02 67 1B 05 67 1C 08 67 1D 0B B5 72 08 23 B8
B8 6F 28 B6 B6 6F 28 B4 B4 6F 28 67 1B 02 6E 29 67 1C 05 6E 29 67
1D 08 67 1E 09 6F 28 67 1E 0B 6E 29 B6 B6 6F 28 72 08 23 AA AE B0
6D 03 2A 06 1A 01 10 10 BD BB B9 72 03 23 BD BB B9 72 03 23 BD BB
B9 72 03 23 67 20 00 2C 04 2B 11 14 98 2C 67 1C 02 67 1D 03 67 1E
04 6D 04 2D 67 1C 05 67 1D 06 67 1E 08 67 1F 07 67 20 09 67 21 0A
6D 06 2E 98 2C 67 1E 0B 67 1F 0C 67 20 0D 6D 04 2D 98 2F B6 B6 6D
03 2D B2 64 30 6A 10 65 40 6A 31 7A 04 7A 02 72 07 23 64 32 BA B8
B6 67 1E 00 67 1F 07 62 67 21 09 37 07 71 4F B7 B5 7A 01 72 08 23
6E 33 AE 6F 34 AC 6D 03 35 92 02 0A B0 D8 30 AC AF AD A3 79 30 AC
AD 2E 36 15 16 11 12 03 16 03 12 07 19 1F C8 4F 0B DE DF E0 6D 03
09 65 1A 2F 05 50 E2 AB AE AE 72 02 35 72 01 36 1A 2B 37 01 71 90
BB AB 7A 01 81 02 23 11 BA 62 7A 01 81 02 23 10 B9 62 7A 01 81 02
23 0F 84 04 E3 E4 AC 7A 02 7A 02 83 16 16 01 84 01 AB AB 90 01 32
4F 16 02 06 10 00 1C FC BB 1A FC DB 0E 15 1A FD 22 AA 65 47 65 47
65 47 65 47 A1 33 16 01 1A FE 80 62 AD AD AD 65 49 A3 33 16 03 1A
FE 73 02 10 23 93 05 62 2F 20 11 06 3A 00 10 11 06 3D 01 10 12 06
40 02 10 13 06 43 03 10 14 06 46 04 10 15 93 5F 82 60 64 1F 2F 20
12 05 1A FD CA AC 64 1F 6F 20 93 04 AB 6F 21 AB 83 11 AA 83 12 6A
10 83 10 AA 2E 22 16 05 1A FD C9 06 47 00 1C FE 19 01 04 65 46 A0
33 1A FE 19 64 24 65 4D 67 49 00 32 02 23 5C 1A FD CC 91 4C 6F 06
47 00 5A 1A FD C2 64 25 04 4D 5C 1A FD BA
)
1. TEST-LIST ANALYZE-LAMBDALIST C-FUNCALL-INLINE COMPILER-ERROR C-ERROR
"Too many arguments to ~S" "Zuviele Argumente für ~S"
"Trop d'arguments pour ~S" LANGUAGE 0. DECLARE IGNORE
"Too few arguments to ~S" "Zuwenig Argumente für ~S"
"Trop peu d'arguments pour ~S" *STACKZ* *VENV* *FENV* *BENV* *GENV*
*DENV* *VENVC* INLINING
#Y(C-FUNCALL-INLINE-1
#17Y(00 01 00 00 00 02 9C 5A 25 00 03 02 19 02 00 19 02)
#S(HASH-TABLE EQ (INLINING . 1.) (IN-DEFUN . 1.) (DECLARATION . 1.))
)
*SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
#Y(C-FUNCALL-INLINE-FINISH-USING-APPLYARG
#205Y(00 05 00 00 00 06 07 01 01 10 01 07 01 02 10 02 07 01 03 10 03
07 01 04 10 04 07 01 05 10 05 07 02 01 77 DE 2F 07 12 05 14 AC
CB 59 58 14 B1 71 48 B1 71 48 72 02 35 B1 71 48 6D 03 09 E2 E3
AD E4 71 31 E3 AD E4 71 31 6F 0D AD AD 7A 02 2C 03 0E 16 01 F6
60 01 0C 00 01 AF 2E 0F 41 02 15 0C 00 04 15 0C 00 03 AE 2E 0F
41 02 15 0C 00 07 15 0C 00 06 AB 23 08 80 4B AB 7A 01 2E 0F 41
02 15 0C 00 0D 15 0C 00 0C E0 0E 10 5C 0F 10 0C 00 02 68 00 03
2E 11 0C 00 05 68 00 06 68 00 07 AF AF 2C 04 12 41 04 15 0C 00
0A 15 0C 00 09 15 0C 00 0B 15 0C 00 08 AB 23 08 11 68 00 0C 2E
13 0C 00 0E 19 06 01 02 3F 02 1A FF B3 00 19 06
)
NIL *VENV* *FENV* *BENV* *GENV* *DENV* ONE C-FORM 0. C-UNLIST
APPLY-UNLIST ANODE 2. SECLASS-OR-2 MK-ANODE PROCESS-FIXED-VAR-LIST
*STACKZ* BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
)
ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV* *NO-CODE* LIST* LIST
BIND-AUX-VARS PROGN CHECKING-MOVABLE-VAR-LIST CHECKING-FIXED-VAR-LIST
C-MAKE-CLOSURE C-PARALLEL-BIND-MOVABLE-VAR-ANODE C-BIND-FIXED-VAR MAPCAP
C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND *FOR-VALUE* FUNCALL
ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
) )
#Y(#:TOP-LEVEL-FORM-216 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-LOCAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-LOCAL-FUNCTION-CALL
#65Y(00 03 00 00 00 04 AC 2E 00 41 06 B1 62 B5 B2 B2 B2 B2 B2 B2 6D 09 01
AA 23 02 0D AA 23 03 09 DE B5 7A 02 B3 2F 07 19 0B B2 62 B6 B3 B3 B3
B3 B3 62 BD 93 13 BB BB BB BB BB 6D 07 04 2C 0A 05 19 0B
)
FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS
CCLOSURE-CALL-CODE-PRODUCER C-DIRECT-FUNCTION-CALL FUNCTION
C-FUNCALL-NOTINLINE
) )
#Y(#:TOP-LEVEL-FORM-217 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
#Y(C-FUNCTION-CALL
#107Y(00 02 00 00 00 03 AC AC 71 48 89 00 3F 9D 1F 1A 93 02 24 02 15 9D
5B 1F 11 9D 5B 5B 1B 0C DA 87 03 08 DA 87 04 04 DD 88 03 2F 9D 1F
38 93 02 24 08 33 9D 5B 1F 2F 9D 5B 77 88 09 29 AC E2 E2 2C 03 0B
9D 5B 77 9D 5C 14 2E 07 19 03 AC AC 62 A0 5B 5A 78 63 2C 05 01 19
03 DD DE 9F 5B 77 9F 7B 02 60 02 1A 62 AC AC 2F 0C 19 03
)
INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE COMPLEMENT FENV-SEARCH
DECLARED-NOTINLINE NOT %FUNCALL C-FORM FUNCTION FUNCTION-NAME-P 2.
TEST-LIST C-FUNCALL-NOTINLINE
) )
#Y(#:TOP-LEVEL-FORM-218 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FUNCALL REMOVE-OLD-DEFINITIONS
#Y(C-FUNCALL
#23Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 2F 03 19 01
)
*FORM* 2. TEST-LIST C-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-219 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-APPLY REMOVE-OLD-DEFINITIONS
#Y(C-APPLY
#408Y(00 00 00 00 00 01 46 00 81 8C 6A 01 DA 2F 03 00 2A 01 0E 01 5B 77
0E 01 5B 5B 0B 01 00 14 71 48 71 98 AB AB 63 2C 03 04 1B 80 91 9C
1F 1B 93 01 24 06 16 9C 5B 1F 12 9C 5B 5B 1B 0D DE 87 07 09 DE 87
08 05 E1 88 07 80 8E 9C 1F 27 93 01 24 0C 22 9C 5B 1F 1E 9C 5B 77
88 0D 18 9D 2A 01 9D 5B 5A 0B 00 00 AC E6 E6 2C 03 03 67 00 00 88
08 81 0C 16 01 AB F4 6F 0B EA 0E 1D 5C 10 1D 67 06 00 64 1E AF 7A
02 92 01 1D 93 01 F4 6F 0B AA 83 01 9D 5B 1C 0A EA 0E 1D 5C 0F 1D
64 1F 83 01 16 01 82 01 91 01 63 E2 B1 7A 02 83 00 E2 64 20 AC 71
4A 2C 03 21 16 02 11 16 04 47 19 01 AB 67 03 00 37 01 70 A8 67 04
00 37 01 70 A0 9F 5B 5A 78 63 2C 05 05 16 03 1A 62 E1 E2 9E 5B 77
06 05 00 7B 02 7A 02 2E 0B 16 03 1A 50 6A 10 00 79 9F 33 0E 16 1C
80 60 1A 80 50 67 05 00 67 09 00 37 01 70 A8 67 0A 00 37 01 70 A0
AD 62 2C 05 05 16 09 1A FF A7 67 04 00 8E 08 0E 67 04 00 8B 54 80
72 67 04 00 8B 5A 80 6B 67 04 00 6A 10 E9 AB EA 80 31 00 8E 04 0F
EB 67 05 00 7A 02 6A 14 ED 37 02 8B B7 FF A6 0E 16 1C 0D 67 04 00
6A 17 ED 37 02 30 BE 5B 1B 0A 67 04 00 6E 18 F1 37 01 31 84 14 9B
1F 0E E4 F2 9D 79 7A 02 B1 63 2C 03 04 1B FF 87 16 06 1A FE FE AA
9F 33 16 05 1A FE F6 AA B1 6C 0F 02 67 01 00 2E 07 41 03 92 02 FF
85 AC 23 1B 64 16 05 1A FE DD 19 01
)
C-APPLY *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE
COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT APPLY C-FORM FUNCTION
FUNCTION-NAME-P 2.
#Y(C-APPLY-C-LOCAL-APPLY
#87Y(00 01 00 00 00 02 AB 2E 02 41 06 91 02 1D 68 01 01 37 01 70 A8 68
01 01 37 01 70 A0 68 00 01 B2 B2 B2 B2 B2 B2 6D 09 03 23 04 03 00
19 08 68 01 01 37 01 70 A8 68 01 01 37 01 70 A0 68 00 01 B2 B2 B2
B2 B2 62 68 00 01 93 11 BA BA BA BA BA 6D 07 05 2C 0A 06 48 01
)
NIL NIL FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS
CCLOSURE-CALL-CODE-PRODUCER C-DIRECT-FUNCTION-CALL
)
*FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL *COMPILING-FROM-FILE*
*INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION LAMBDA LOCAL ONE
*STACKZ* (APPLYP) (PUSH) (T . T) MK-ANODE
) )
#Y(#:TOP-LEVEL-FORM-220 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-PLUS REMOVE-OLD-DEFINITIONS
#Y(C-PLUS
#118Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 01 02 0E 00 78 62 1A 3C AE AD
81 02 35 04 1A 32 9E 1A 11 9E 25 07 12 9D 5A 1A 09 CB 1A 01 CC 14
93 03 60 02 14 2E 06 19 05 E2 AE 9F 61 02 1A 35 86 01 00 14 88 04
08 AA 2E 05 F8 14 8D 0A 49 AA 83 03 82 01 AB 8C 96 68 16 02 AB 71
48 AA 23 03 FF BE AA 23 01 FF BC AC 80 4A 02 AD 23 03 03 AD 83 02
E2 9E 5C 14 2E 0B 19 05
)
*FORM* 1. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE C-FORM
#S(HASH-TABLE EQ (-1. . 8.) (1. . 5.) (0. . 1.)) 1+ 1- +
C-GLOBAL-FUNCTION-CALL-FORM
) )
#Y(#:TOP-LEVEL-FORM-221 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MINUS REMOVE-OLD-DEFINITIONS
#Y(C-MINUS
#166Y(00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 48 D9 72 01 2D DB DB 01
02 91 04 20 0E 00 5B 77 AA 88 04 08 AA 2E 05 F7 14 8D 0A 0C 9B F9
16 01 92 04 0C 0E 00 5B 1A 0B 9C FA 1A 72 91 04 74 0E 00 5B 5B 14
62 1A 36 AF AD 81 01 36 05 1A 2C DE AE AE 60 03 10 00 2D 07 11 19
06 00 1A 3E AE 24 03 04 9D 5B 1C 75 9F 1A 27 86 01 00 14 88 04 08
AA 2E 05 F8 14 8D 0A 4F AA 83 03 82 01 AB 8C 96 68 16 02 92 01 49
E0 AD 23 03 53 AE 24 03 06 9E 14 60 01 1A 07 AD AF 72 00 36 60 02
14 AD 71 4A 32 02 23 79 2E 09 19 06
)
*FORM* 2. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE + C-PLUS -
C-GLOBAL-FUNCTION-CALL-FORM
) )
#Y(#:TOP-LEVEL-FORM-222 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-SVSTORE REMOVE-OLD-DEFINITIONS
#Y(C-SVSTORE
#59Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 0E
00 5B 5B 5B 77 37 01 71 90 37 01 71 90 DB AC B0 7A 02 AC B0 7A 02 7A
02 DC AF AF AF 7A 04 7A 03 2E 05 19 06
)
*FORM* 4. TEST-LIST LET* %SVSTORE C-FORM
) )
#Y(#:TOP-LEVEL-FORM-223 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-EQ REMOVE-OLD-DEFINITIONS
#Y(C-EQ
#81Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 AB
88 03 04 AA 87 03 1E AB 88 03 08 AB AB 9B F9 9C F8 16 02 AA 88 03 04
AA 88 05 19 E1 AC AC 60 03 14 2E 08 19 03 DC AC 6E 05 AC 2E 05 59 14
7A 02 2E 06 19 03 DF AC 60 02 1A 66
)
*FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM NULL
C-GLOBAL-FUNCTION-CALL-FORM EQ
) )
#Y(#:TOP-LEVEL-FORM-224 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EQL=EQ REMOVE-OLD-DEFINITIONS
#Y(EQL=EQ
#23Y(00 01 00 00 00 02 AB 31 08 1D 0A AB 31 0F 1D 05 AB 31 1E 19 02 19 02
) ) )
#Y(#:TOP-LEVEL-FORM-225 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-EQL REMOVE-OLD-DEFINITIONS
#Y(C-EQL
#82Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 AB
88 03 04 AA 87 03 19 AB 88 03 06 AB 6E 05 87 07 1E AA 88 03 06 AA 6E
05 87 07 14 E2 2E 0B 19 03 DC AC 6E 05 AC 6E 05 71 03 7A 02 2E 06 19
03 E0 AC AC 60 03 10 00 2D 09 11 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM EQL=EQ EQ
C-EQ EQL C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-226 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EQUAL=EQL REMOVE-OLD-DEFINITIONS
#Y(EQUAL=EQL
#23Y(00 01 00 00 00 02 AB 31 08 1D 0A AB 31 0A 1D 05 AB 31 1E 19 02 19 02
) ) )
#Y(#:TOP-LEVEL-FORM-227 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-EQUAL REMOVE-OLD-DEFINITIONS
#Y(C-EQUAL
#59Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 AB
88 03 06 AB 6E 04 87 05 0F AA 88 03 06 AA 6E 04 87 05 05 E0 2E 09 19
03 DE AC AC 60 03 10 00 2D 07 11 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE EQUAL=EQL EQL C-EQL
EQUAL C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-228 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAP-ON-CARS-INNER REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-CARS-INNER
#65Y(00 03 00 01 00 0A 3A 01 0D 7C 01 91 02 0B AE AC 71 4A 35 01 19 05 92
02 75 93 02 37 01 71 90 D8 D9 AD 7A 02 DA AD DB B0 7A 02 7A 02 7A 01
B4 B4 94 0A B1 A6 79 6B 4F 7A 03 DC B3 7A 02 60 04 19 07
)
IF CONSP LET CAR RETURN-FROM
) )
#Y(#:TOP-LEVEL-FORM-229 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAP-ON-CARS REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-CARS
#141Y(00 03 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 9B 2A 01 37 01
31 90 0B 00 00 37 01 71 90 62 AF 1A 0C 93 00 37 01 71 90 83 02 16
01 82 00 9B 20 71 16 01 AA 7F A7 00 37 01 71 90 D8 67 04 00 C4 79
7A 01 DA AF DB DC B1 B7 72 01 17 DD B1 B5 6C 06 01 B5 B5 6D 03 07
E0 62 B6 1A 11 93 00 AA E1 AC 7A 02 7A 02 AD 7F A5 02 16 01 82 00
9B 20 6C 16 01 AA 30 A7 16 01 79 E2 B5 7A 02 7A 05 7A 03 7A 03 E3
67 07 00 7A 02 60 04 19 09
)
LET (NIL) BLOCK LET* #.#'LIST TAGBODY
#Y(C-MAP-ON-CARS-1
#29Y(00 01 00 00 00 02 D9 68 00 01 68 01 01 DA 68 01 02 A1 7B 02 68 00
01 7A 03 60 03 19 02
)
NIL SETQ %FUNCALL
)
C-MAP-ON-CARS-INNER SETQ CDR GO LIST-NREVERSE
) )
#Y(#:TOP-LEVEL-FORM-230 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAP-ON-LISTS REMOVE-OLD-DEFINITIONS
#Y(C-MAP-ON-LISTS
#160Y(00 03 00 00 00 04 37 01 71 90 37 01 71 90 62 AE 1A 0C 93 00 37 01
71 90 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A7 00 37 01 71 90 D8
AE C4 79 7A 01 DA AF DB DC B1 B6 72 01 17 DD B1 DE DF 62 B6 1A 0C
93 00 E0 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 30 A7 16 01
79 E1 B7 7A 02 7A 03 E2 B7 BC E3 BD 04 0F 7B 02 BA 7A 03 7A 03 E2
62 B7 1A 11 93 00 AA E4 AC 7A 02 7A 02 AD 7F A5 02 16 01 82 00 9B
20 6C 16 01 AA 30 A7 16 01 79 E5 B6 7A 02 7A 06 7A 03 7A 03 E6 B1
7A 02 60 04 19 08
)
LET (NIL) BLOCK LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM SETQ
%FUNCALL CDR GO LIST-NREVERSE
) )
#Y(#:TOP-LEVEL-FORM-231 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPC REMOVE-OLD-DEFINITIONS
#Y(C-MAPC
#154Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 48 89
03 05 E7 2E 10 19 01 37 01 71 90 AA 0E 00 5B 5B 5B 79 37 01 71 90
62 AC 1A 0C 93 00 37 01 71 90 83 02 16 01 82 00 9B 20 71 16 01 AA
7F A7 00 37 01 71 90 DC AF 0E 00 5B 5B 77 7A 02 7A 01 DD AF DE DF
B1 B4 72 01 17 E0 B1 E1 B5 B5 6D 03 0A E3 62 B6 1A 11 93 00 AA E4
AC 7A 02 7A 02 AD 7F A5 02 16 01 82 00 9B 20 6C 16 01 AA 30 A7 16
01 79 E5 B5 7A 02 7A 05 7A 03 7A 03 B1 60 04 16 04 F6 2E 0E 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST
TAGBODY
#Y(C-MAPC-1 #16Y(00 01 00 00 00 02 D8 0E 01 5B 77 9E 61 02 19 02)
%FUNCALL *FORM*
)
C-MAP-ON-CARS-INNER SETQ CDR GO C-FORM MAPC C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-232 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPL REMOVE-OLD-DEFINITIONS
#Y(C-MAPL
#191Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 48 89
03 05 EA 2E 13 19 01 37 01 71 90 AA 0E 00 5B 5B 5B 79 37 01 71 90
62 AC 1A 0C 93 00 37 01 71 90 83 02 16 01 82 00 9B 20 71 16 01 AA
7F A7 00 37 01 71 90 DC AF 0E 00 5B 5B 77 7A 02 7A 01 DD AF DE DF
B1 B4 72 01 17 E0 B1 E1 E2 62 B6 1A 0C 93 00 E3 AB 7A 02 83 02 16
01 82 00 9B 20 71 16 01 AA 30 A7 16 01 79 E4 B7 7A 02 7A 03 E5 0E
00 5B 77 A7 7B 02 E6 62 B7 1A 11 93 00 AA E7 AC 7A 02 7A 02 AD 7F
A5 02 16 01 82 00 9B 20 6C 16 01 AA 30 A7 16 01 79 E8 B6 7A 02 7A
06 7A 03 7A 03 B1 60 04 16 04 F6 2E 11 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST
TAGBODY IF OR ATOM RETURN-FROM %FUNCALL SETQ CDR GO C-FORM MAPL
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-233 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPCAR REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAR
#61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
71 48 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P
CONS C-MAP-ON-CARS C-FORM MAPCAR C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-234 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPLIST REMOVE-OLD-DEFINITIONS
#Y(C-MAPLIST
#61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
71 48 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P
CONS C-MAP-ON-LISTS C-FORM MAPLIST C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-235 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPCAN REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAN
#45Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 48 89 03
05 DF 2E 08 19 01 DC 0E 00 5B 77 0E 00 5B 78 6D 03 05 2E 06 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-CARS
C-FORM MAPCAN C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-236 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPCON REMOVE-OLD-DEFINITIONS
#Y(C-MAPCON
#45Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 48 89 03
05 DF 2E 08 19 01 DC 0E 00 5B 77 0E 00 5B 78 6D 03 05 2E 06 19 01
)
*FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-LISTS
C-FORM MAPCON C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-237 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPCAP REMOVE-OLD-DEFINITIONS
#Y(C-MAPCAP
#61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
71 48 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P
REVAPPEND C-MAP-ON-CARS C-FORM MAPCAP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-238 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-MAPLAP REMOVE-OLD-DEFINITIONS
#Y(C-MAPLAP
#61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
71 48 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
)
*FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P
REVAPPEND C-MAP-ON-LISTS C-FORM MAPLAP C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-239
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
C-TYPEP-ALIST1
#1=((ARRAY . ARRAYP) (ATOM . ATOM) (BIT-VECTOR . BIT-VECTOR-P)
(CHARACTER . CHARACTERP) (COMMON . COMMONP)
(COMPILED-FUNCTION . COMPILED-FUNCTION-P) (COMPLEX . COMPLEXP)
(CONS . CONSP) (DOUBLE-FLOAT . DOUBLE-FLOAT-P) (FIXNUM . FIXNUMP)
(FLOAT . FLOATP) (FUNCTION . FUNCTIONP) (HASH-TABLE . HASH-TABLE-P)
(INTEGER . INTEGERP) (KEYWORD . KEYWORDP) (LIST . LISTP)
(LOGICAL-PATHNAME . LOGICAL-PATHNAME-P) (LONG-FLOAT . LONG-FLOAT-P)
(NULL . NULL) (NUMBER . NUMBERP) (PACKAGE . PACKAGEP)
(PATHNAME . PATHNAMEP) (RANDOM-STATE . RANDOM-STATE-P)
(RATIONAL . RATIONALP) (READTABLE . READTABLEP) (REAL . REALP)
(SEQUENCE . SEQUENCEP) (SHORT-FLOAT . SHORT-FLOAT-P)
(SIMPLE-ARRAY . SIMPLE-ARRAY-P)
(SIMPLE-BIT-VECTOR . SIMPLE-BIT-VECTOR-P)
(SIMPLE-STRING . SIMPLE-STRING-P) (SIMPLE-VECTOR . SIMPLE-VECTOR-P)
(SINGLE-FLOAT . SINGLE-FLOAT-P)
(CLOS:STANDARD-GENERIC-FUNCTION . CLOS::GENERIC-FUNCTION-P)
(CLOS:STANDARD-OBJECT . CLOS::STD-INSTANCE-P) (STREAM . STREAMP)
(FILE-STREAM . FILE-STREAM-P) (SYNONYM-STREAM . SYNONYM-STREAM-P)
(BROADCAST-STREAM . BROADCAST-STREAM-P)
(CONCATENATED-STREAM . CONCATENATED-STREAM-P)
(TWO-WAY-STREAM . TWO-WAY-STREAM-P) (ECHO-STREAM . ECHO-STREAM-P)
(STRING-STREAM . STRING-STREAM-P) (STRING . STRINGP) (SYMBOL . SYMBOLP)
(VECTOR . VECTORP)
)
(DEFCONSTANT C-TYPEP-ALIST1 '#1#) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-240
#28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
83 C3 19 01
)
C-TYPEP-ALIST2
#1=((BIGNUM (X) (AND (INTEGERP X) (NOT (FIXNUMP X))))
(BIT (X) (OR (EQL X 0.) (EQL X 1.))) (NIL (X) (DECLARE (IGNORE X)) NIL)
(RATIO (X) (AND (RATIONALP X) (NOT (INTEGERP X))))
(STANDARD-CHAR (X) (AND (CHARACTERP X) (STANDARD-CHAR-P X)))
(STRING-CHAR (X) (AND (CHARACTERP X) (STRING-CHAR-P X)))
(STRUCTURE (X)
(LET ((Y (TYPE-OF X)))
(AND (SYMBOLP Y) (GET Y 'DEFSTRUCT-DESCRIPTION)
(%STRUCTURE-TYPE-P Y X)
) ) )
(T (X) (DECLARE (IGNORE X)) T)
)
(DEFCONSTANT C-TYPEP-ALIST2 '#1#) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-241 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-TYPEP-ARRAY REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-ARRAY
#19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
#Y(C-TYPEP-ARRAY-1
#137Y(00 01 00 02 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA 68 00 01 B0
7A 02 AF 23 01 27 DB DC B2 7A 02 DD B2 6E 06 7A 02 7A 03 60 01
14 AF 23 01 16 AF 8D 0A 15 DF B0 71 48 E0 B4 7A 02 7A 03 E1 62
B2 1A 34 00 1A 65 00 1A 39 DF B0 E0 B4 7A 02 7A 03 60 01 1A 2D
00 1A 14 93 00 AA 23 01 77 DF DD AC 7A 02 E2 B9 B1 7A 03 7A 03
60 01 14 84 04 AD 7F A5 02 16 01 82 00 9B 20 5E 16 01 AA 30 A7
16 02 5C 14 32 02 23 61 02 19 05
)
NIL * AND EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
EQL ARRAY-RANK 0. ARRAY-DIMENSION
) ) )
#Y(#:TOP-LEVEL-FORM-242 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-TYPEP-VECTOR REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-VECTOR
#19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
#Y(C-TYPEP-VECTOR-1
#43Y(00 01 00 01 01 00 3A 02 02 C4 F8 DA 68 00 01 AF 7A 02 AE 23 01 12
DB DC B1 C8 7B 02 DE B1 7A 02 7A 03 60 01 61 02 19 04 00 1A 79
)
NIL * AND EQL ARRAY-DIMENSION (0.) QUOTE
) ) )
#Y(#:TOP-LEVEL-FORM-243 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-TYPEP-NUMBER REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP-NUMBER
#23Y(00 02 00 00 00 03 00 2A 02 7E 03 00 00 7E 02 00 01 AA 2B 00 01 19 04
)
#Y(C-TYPEP-NUMBER-1
#175Y(00 01 00 02 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA 68 00 02 B0
7A 02 AF 23 01 80 5C 68 00 02 B0 35 01 1B 80 56 A0 1F 80 57 A0
5B 1B 80 52 68 00 02 93 06 35 01 1C 80 48 DC A1 5A 14 B2 7A 03
60 01 14 AF 23 01 80 50 68 00 02 B0 35 01 1B 80 4A A0 1F 0D A0
5B 1B 09 68 00 02 93 06 35 01 1B 3E E6 E7 E8 6D 03 08 E1 68 00
01 68 00 01 68 00 01 B4 2C 06 0A CE 14 00 51 00 1A 46 DB A1 1A
FF BB DD DE DF 6D 03 08 E1 68 00 01 68 00 01 68 00 01 B4 2C 06
0A CE 1A 5E 00 1A 0D E4 A1 1A 03 E5 A1 5A 14 B3 7A 03 60 01 14
32 02 23 61 02 19 05
)
NIL * AND <= < "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
"~S: Argument zu ~S muß *, ~S oder eine Liste von ~S sein: ~S"
"~S : L'argument de ~S doit être *, ~S ou une liste de ~S: ~S"
LANGUAGE TYPEP C-WARN C-TYPEP >= >
"~S: argument to ~S must be *, ~S or a list of ~S: ~S"
"~S: Argument zu ~S muß *, ~S oder eine Liste von ~S sein: ~S"
"~S : L'argument de ~S doit être *, ~S ou une liste de ~S: ~S"
) ) )
#Y(#:TOP-LEVEL-FORM-244
#149Y(00 00 00 00 00 01 D8 D9 2E 02 79 DB DC 2E 02 79 DD C9 79 DF E0 2E 09
79 E2 CE 79 E4 E4 E5 2F 0E 79 E7 D3 79 E9 D5 79 EB D7 79 ED ED EE 2F
0E 79 EF EF F0 2F 0E 79 F1 F1 F2 2F 0E 79 F3 F3 F4 2F 0E 79 F5 F5 64
1E 2F 0E 79 64 1F 64 1F 64 20 2F 0E 79 64 21 64 21 64 22 2F 0E 79 64
23 64 24 2E 09 79 64 25 64 26 2E 09 79 64 27 64 28 2E 09 79 64 29 64
2A 2E 09 79 7A 14 64 2B 8C 61 0E AA 64 2B 70 51 8D 03 06 64 2B 64 2C
2F 2D 64 2B AB 31 83 03 2B 19 02
)
ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
#Y(#:TOP-LEVEL-FORM-244-1
#73Y(00 01 00 02 01 00 3A 03 02 C3 F9 3A 02 02 C3 F8 D9 DA B0 7A 02 AF 23
00 2A DB DC B2 7A 02 DD B2 6E 06 7A 02 7A 03 60 01 14 AF 23 00 19 DF
E0 B3 CC 7B 02 DD B2 7A 02 7A 03 60 01 14 32 02 23 61 02 19 05 00 1A
62 00 1A 72
)
* AND VECTORP EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
EQL ARRAY-DIMENSION #1=(0.)
)
SIMPLE-VECTOR SIMPLE-VECTOR-P C-TYPEP-VECTOR COMPLEX
#Y(#:TOP-LEVEL-FORM-244-2
#70Y(00 01 00 02 01 00 3A 03 02 C3 F9 3A 02 02 9E F8 D9 DA B0 7A 02 AF 23
00 27 DB DC B2 7A 02 DD B2 7A 02 7A 03 60 01 14 AF 23 00 18 DB DE B3
7A 02 DD B2 7A 02 7A 03 60 01 14 32 02 23 61 02 19 05 00 1A 63 00 1A
72
)
* AND COMPLEXP TYPEP REALPART QUOTE IMAGPART
)
INTEGER INTEGERP C-TYPEP-NUMBER MOD
#Y(#:TOP-LEVEL-FORM-244-3
#47Y(00 01 00 01 01 00 3C 02 AC 8E 0E 15 DF E0 AF 7A 02 E1 E2 B1 7A 02 7A
02 E3 B1 B1 7A 03 60 04 19 04 D8 D9 DA 6D 03 03 DC AE 2C 03 05 DE 00
51
)
#2="~S: argument to MOD must be an integer: ~S"
#3="~S: Argument zu MOD muß ganze Zahl sein: ~S"
#4="~S : L'argument de MOD doit être un entier: ~S" LANGUAGE TYPEP C-WARN
C-TYPEP AND INTEGERP NOT MINUSP <
)
SIGNED-BYTE
#Y(#:TOP-LEVEL-FORM-244-4
#59Y(00 01 00 01 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0E 17 E0 E1 AF 7A
02 AE 23 00 1C E2 E3 B1 7A 02 B0 7A 03 60 01 61 02 19 04 D9 DA DB 6D
03 04 DD AE 2C 03 06 DF 00 51 00 1A 6B
)
* #5="~S: argument to SIGNED-BYTE must be an integer or * : ~S"
#6="~S: Argument zu SIGNED-BYTE muß ganze Zahl oder * sein: ~S"
#7="~S : L'argument de SIGNED-BYTE doit être un entier ou bien * : ~S"
LANGUAGE TYPEP C-WARN C-TYPEP AND INTEGERP < INTEGER-LENGTH
)
UNSIGNED-BYTE
#Y(#:TOP-LEVEL-FORM-244-5
#66Y(00 01 00 01 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0E 1E E0 E1 AF 7A
02 E2 E3 B1 7A 02 7A 02 AF 23 00 1C E4 E5 B2 7A 02 B1 7A 03 60 01 61
03 19 04 D9 DA DB 6D 03 04 DD AE 2C 03 06 DF 00 51 00 1A 6B
)
* #8="~S: argument to UNSIGNED-BYTE must be an integer or * : ~S"
#9="~S: Argument zu UNSIGNED-BYTE muß ganze Zahl oder * sein: ~S"
#10="~S : L'argument de UNSIGNED-BYTE doit être un entier ou bien * : ~S"
LANGUAGE TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <= INTEGER-LENGTH
)
REAL REALP RATIONAL RATIONALP FLOAT FLOATP SHORT-FLOAT SHORT-FLOAT-P
SINGLE-FLOAT SINGLE-FLOAT-P DOUBLE-FLOAT DOUBLE-FLOAT-P LONG-FLOAT
LONG-FLOAT-P STRING STRINGP SIMPLE-STRING SIMPLE-STRING-P BIT-VECTOR
BIT-VECTOR-P SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P C-TYPEP-ALIST3
(DEFCONSTANT C-TYPEP-ALIST3
`((ARRAY . ,(C-TYPEP-ARRAY 'ARRAYP))
(SIMPLE-ARRAY . ,(C-TYPEP-ARRAY 'SIMPLE-ARRAY-P))
(VECTOR .
,#'(LAMBDA (X &OPTIONAL (EL-TYPE '*) (SIZE '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
`#11=(AND (VECTORP ,X)
,@(IF (EQ EL-TYPE '*) 'NIL
`#12=((EQUAL (ARRAY-ELEMENT-TYPE ,X)
',(UPGRADED-ARRAY-ELEMENT-TYPE EL-TYPE)
) ))
,@(IF (EQ SIZE '*) 'NIL
`#13=((EQL (ARRAY-DIMENSION ,X 0.) ',SIZE))
) ) ) )
(SIMPLE-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-VECTOR-P))
(COMPLEX .
,#'(LAMBDA (X &OPTIONAL (RTYPE '*) (ITYPE RTYPE) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
`#14=(AND (COMPLEXP ,X)
,@(IF (EQ RTYPE '*) 'NIL
`#15=((TYPEP (REALPART ,X) ',RTYPE))
)
,@(IF (EQ ITYPE '*) 'NIL
`#16=((TYPEP (IMAGPART ,X) ',ITYPE))
) ) ) )
(INTEGER . ,(C-TYPEP-NUMBER 'INTEGER 'INTEGERP))
(MOD .
,#'(LAMBDA (X &OPTIONAL N &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (INTEGERP N) (C-WARN (LANGUAGE #2# #3# #4#) 'TYPEP N)
(THROW 'C-TYPEP NIL)
)
`#17=(AND (INTEGERP ,X) (NOT (MINUSP ,X)) (< ,X ,N))
) )
(SIGNED-BYTE .
,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (OR (EQ N '*) (INTEGERP N))
(C-WARN (LANGUAGE #5# #6# #7#) 'TYPEP N) (THROW 'C-TYPEP NIL)
)
`#18=(AND (INTEGERP ,X)
,@(IF (EQ N '*) 'NIL `#19=((< (INTEGER-LENGTH ,X) ,N)))
) ) )
(UNSIGNED-BYTE .
,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
(DECLARE (IGNORE ILLEGAL-ARGS))
(UNLESS (OR (EQ N '*) (INTEGERP N))
(C-WARN (LANGUAGE #8# #9# #10#) 'TYPEP N) (THROW 'C-TYPEP NIL)
)
`#20=(AND (INTEGERP ,X) (NOT (MINUSP ,X))
,@(IF (EQ N '*) 'NIL `#21=((<= (INTEGER-LENGTH ,X) ,N)))
) ) )
(REAL . ,(C-TYPEP-NUMBER 'REAL 'REALP))
(RATIONAL . ,(C-TYPEP-NUMBER 'RATIONAL 'RATIONALP))
(FLOAT . ,(C-TYPEP-NUMBER 'FLOAT 'FLOATP))
(SHORT-FLOAT . ,(C-TYPEP-NUMBER 'SHORT-FLOAT 'SHORT-FLOAT-P))
(SINGLE-FLOAT . ,(C-TYPEP-NUMBER 'SINGLE-FLOAT 'SINGLE-FLOAT-P))
(DOUBLE-FLOAT . ,(C-TYPEP-NUMBER 'DOUBLE-FLOAT 'DOUBLE-FLOAT-P))
(LONG-FLOAT . ,(C-TYPEP-NUMBER 'LONG-FLOAT 'LONG-FLOAT-P))
(STRING . ,(C-TYPEP-VECTOR 'STRINGP))
(SIMPLE-STRING . ,(C-TYPEP-VECTOR 'SIMPLE-STRING-P))
(BIT-VECTOR . ,(C-TYPEP-VECTOR 'BIT-VECTOR-P))
(SIMPLE-BIT-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-BIT-VECTOR-P))
) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-245 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-TYPEP REMOVE-OLD-DEFINITIONS
#Y(C-TYPEP
#555Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77
AA 88 03 82 0B AA 6E 04 62 AB 8D 08 81 BB 9C 1F 06 93 01 8D 08 80
D3 AB 88 15 81 F2 AB 6E 16 EC 37 01 71 84 9D 22 81 E6 EF F0 AF 7A
02 F1 F2 E8 B0 2E 16 14 7A 02 60 02 14 60 02 14 7A 03 2E 11 19 05
5B F6 14 AE 7A 02 2E 06 19 05 5B F6 14 AE 60 02 10 00 E0 AF 71 8C
6F 09 B1 7A 01 62 B0 62 2C 05 0A 11 19 05 5B F6 37 01 71 90 AB AB
75 01 AB 7A 01 AB 7A 02 E4 9C 79 B1 60 02 10 00 E5 B2 71 8C 6F 09
B4 7A 01 62 B0 62 2C 05 0A 11 19 08 E7 AE E8 AD AF 7A 01 35 01 1A
FF 9C EB E8 AD 7A 02 A0 1A FF 96 EF F0 AF 7A 02 F1 F2 E8 A1 1A FF
82 64 1E 64 1F 64 20 6D 03 21 E7 A2 5B 77 2C 03 22 F3 00 51 9F 5B
77 A0 5B 77 8E 08 64 AA B2 7A 02 2E 06 16 08 1A 80 E7 64 24 B1 94
06 03 25 79 03 26 61 03 10 00 2D 27 1A 31 03 1B 4F 81 1F 93 04 24
1C 06 AE 71 48 23 1D 4A 93 04 23 23 59 93 04 24 28 80 69 AE 71 48
24 1D 80 62 64 28 B1 E8 A2 5B 77 7A 02 60 03 10 00 2D 29 11 16 07
1A 80 9E 64 2A E7 B2 E8 A3 5B 77 7A 02 7A 03 7A 02 2E 06 16 07 1A
80 89 37 01 71 90 64 2D AB B3 7A 02 7A 01 93 07 62 94 09 1A 10 93
00 E7 B1 E8 AD 7A 02 7A 03 83 02 16 01 82 00 9B 20 6D 16 01 AA 30
A7 16 01 79 60 03 F6 2E 11 16 07 1A 80 51 93 04 24 2A 07 AE 71 48
23 1D FF A7 93 04 23 2B FF B6 93 04 23 2C FF B0 93 04 6A 0B 37 03
7F BE 03 1C 32 5B F9 37 01 71 90 AE AB A2 5B 76 01 AB 7A 01 AB 7A
02 E4 9C 79 B4 60 02 10 00 64 2E 93 0B 71 8C 6F 09 B7 7A 01 62 B0
62 2C 05 0A 11 16 0A 18 0F 19 01 50 16 02 1A 80 47 AB DD 37 03 7F
BE 00 1B FE 6F AB DF 37 03 7F BE 00 1B FE 6F AB 6A 0B 37 03 7F BE
00 1B FE 7E AB E6 37 01 80 84 00 1B FE 9E AB EA 37 01 8D 84 FE A2
AB EC 37 01 80 84 00 1C 0B 14 88 15 07 AA 6E 16 9D 21 FE 97 16 02
E7 2E 2F 19 03
)
*FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE #.C-TYPEP-ALIST1
C-GLOBAL-FUNCTION-CALL-FORM #.C-TYPEP-ALIST2 #:TYPEP SYMBOL-SUFFIX
C-FUNCALL-INLINE C-TYPEP-ALIST3 LAMBDA #:TYPEP DEFTYPE-EXPANDER TYPEP
QUOTE C-FORM DEFSTRUCT-DESCRIPTION %STRUCTURE-TYPE-P CLOS::CLASS
CLOS::CLASS-P CLOS:CLASS-NAME CLOS::SUBCLASSP CLOS:CLASS-OF
LOAD-TIME-VALUE CLOS:FIND-CLASS C-TYPEP SATISFIES 2.
"~S: argument to SATISFIES must be a symbol: ~S"
"~S: Argument zu SATISFIES muß Symbol sein: ~S"
"~S : L'argument de SATISFIES doit être un symbole: ~S" LANGUAGE C-WARN
MEMBER CASE (T) ((T NIL)) C-CASE EQL C-EQL NOT AND OR LET #:TYPEP
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-246 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
C-FORMAT REMOVE-OLD-DEFINITIONS
#Y(C-FORMAT
#52Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 8D 09 05 DB 2E 05 19
01 DB 0E 00 5B 77 DC 0E 00 5B 5B 77 7A 02 0E 00 5B 5B 5B 61 03 10 00
DB 2E 05 11 19 01
)
*FORM* 3. TEST-LIST FORMAT FORMATTER C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-1-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-REMOVE-IF
REMOVE-OLD-DEFINITIONS
#Y(C-REMOVE-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
REMOVE-IF-NOT C-FORM REMOVE-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-1-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-REMOVE-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-REMOVE-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT REMOVE-IF C-FORM
REMOVE-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-2-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-DELETE-IF
REMOVE-OLD-DEFINITIONS
#Y(C-DELETE-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
DELETE-IF-NOT C-FORM DELETE-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-2-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-DELETE-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-DELETE-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT DELETE-IF C-FORM
DELETE-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-3-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBSTITUTE-IF
REMOVE-OLD-DEFINITIONS
#Y(C-SUBSTITUTE-IF
#69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
SUBSTITUTE-IF-NOT C-FORM SUBSTITUTE-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-3-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBSTITUTE-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-SUBSTITUTE-IF-NOT
#65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT SUBSTITUTE-IF C-FORM
SUBSTITUTE-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-4-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBSTITUTE-IF
REMOVE-OLD-DEFINITIONS
#Y(C-NSUBSTITUTE-IF
#69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
NSUBSTITUTE-IF-NOT C-FORM NSUBSTITUTE-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-4-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBSTITUTE-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-NSUBSTITUTE-IF-NOT
#65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT NSUBSTITUTE-IF C-FORM
NSUBSTITUTE-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-5-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-FIND-IF
REMOVE-OLD-DEFINITIONS
#Y(C-FIND-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
FIND-IF-NOT C-FORM FIND-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-5-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-FIND-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-FIND-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT FIND-IF C-FORM FIND-IF-NOT
C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-6-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-POSITION-IF
REMOVE-OLD-DEFINITIONS
#Y(C-POSITION-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
POSITION-IF-NOT C-FORM POSITION-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-6-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-POSITION-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-POSITION-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT POSITION-IF C-FORM
POSITION-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-7-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-COUNT-IF
REMOVE-OLD-DEFINITIONS
#Y(C-COUNT-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
COUNT-IF-NOT C-FORM COUNT-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-7-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-COUNT-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-COUNT-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT COUNT-IF C-FORM
COUNT-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-8-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBST-IF
REMOVE-OLD-DEFINITIONS
#Y(C-SUBST-IF
#69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
SUBST-IF-NOT C-FORM SUBST-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-8-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBST-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-SUBST-IF-NOT
#65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT SUBST-IF C-FORM
SUBST-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-9-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBST-IF
REMOVE-OLD-DEFINITIONS
#Y(C-NSUBST-IF
#69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
NSUBST-IF-NOT C-FORM NSUBST-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-9-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBST-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-NSUBST-IF-NOT
#65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
)
*FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT NSUBST-IF C-FORM
NSUBST-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-10-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-MEMBER-IF
REMOVE-OLD-DEFINITIONS
#Y(C-MEMBER-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
MEMBER-IF-NOT C-FORM MEMBER-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-10-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-MEMBER-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-MEMBER-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT MEMBER-IF C-FORM
MEMBER-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-11-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-ASSOC-IF
REMOVE-OLD-DEFINITIONS
#Y(C-ASSOC-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
ASSOC-IF-NOT C-FORM ASSOC-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-11-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-ASSOC-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-ASSOC-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT ASSOC-IF C-FORM
ASSOC-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-12-1
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-RASSOC-IF
REMOVE-OLD-DEFINITIONS
#Y(C-RASSOC-IF
#63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
RASSOC-IF-NOT C-FORM RASSOC-IF C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-247-12-2
#16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01) C-RASSOC-IF-NOT
REMOVE-OLD-DEFINITIONS
#Y(C-RASSOC-IF-NOT
#59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
)
*FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT RASSOC-IF C-FORM
RASSOC-IF-NOT C-GLOBAL-FUNCTION-CALL
) )
#Y(#:TOP-LEVEL-FORM-248 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *FNODE-FIXUP-TABLE*) *FNODE-FIXUP-TABLE*
)
#Y(#:TOP-LEVEL-FORM-249 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PASS2 REMOVE-OLD-DEFINITIONS
#Y(PASS2
#95Y(00 01 00 00 00 02 9C 10 00 6A 00 D9 AB DA 80 31 00 DB AB 31 35 16 01
1B 04 00 11 19 02 2D 04 14 6A 00 D9 AB DD 31 31 16 01 1C 04 AA 2E 06
F6 AA 2E 07 F6 6A 00 AB 6E 08 2F 09 16 01 6A 00 D9 AB E2 80 31 00 62
1A 0E 86 01 00 D9 AB 8E 35 04 AA 27 FF B3 82 01 AB 8C 96 6E 00 16 02
1A FF BB
)
*FUNC* FNODE 2. ANODE COMPILE-TO-LAP 20. CONST-TO-LOADV
INSERT-COMBINED-LAPS ASSEMBLE-LAP CREATE-FUN-OBJ 17.
) )
#Y(#:TOP-LEVEL-FORM-250 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CODE-PARTS*) *CODE-PARTS*
)
#Y(#:TOP-LEVEL-FORM-251 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CODE-POSITIONS*) *CODE-POSITIONS*
)
#Y(#:TOP-LEVEL-FORM-252 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
VALUE-FORM-INDEX REMOVE-OLD-DEFINITIONS
#Y(VALUE-FORM-INDEX
#95Y(00 03 00 01 00 0A 3A 01 03 0E 00 F7 D9 AC DA 71 31 D9 AD DB 71 31 D9
AE DC 71 31 91 02 21 B1 7A 01 D9 B0 DA AD 31 32 16 01 B0 7A 01 D9 B0
DB AD 31 32 16 01 1A 26 93 01 A2 1A 0B 82 02 82 01 AF 23 05 73 93 02
A3 14 8D 03 12 84 00 9D 5B 1B 6B AC B2 7A 01 30 AE AB B1 7A 01 30 AE
15 19 07
)
*FUNC* FNODE 17. 18. 16. :FORM
) )
#Y(#:TOP-LEVEL-FORM-253 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CONSTVALUE-INDEX REMOVE-OLD-DEFINITIONS
#Y(CONSTVALUE-INDEX #14Y(00 01 00 00 00 02 AB 62 D8 2C 03 01 19 02) :VALUE
VALUE-FORM-INDEX
) )
#Y(#:TOP-LEVEL-FORM-254 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
KVALUE-FORM-INDEX REMOVE-OLD-DEFINITIONS
#Y(KVALUE-FORM-INDEX
#59Y(00 03 00 01 00 0A 3A 01 03 0E 00 F7 AC 23 01 1F AE 8E 8D 1B DA AC DB
71 31 DA AD DC 71 31 92 00 0C 93 00 A2 21 12 82 00 84 01 91 00 74 16
02 AE AE AE AE 2C 04 05 19 05 9C 19 07
)
*FUNC* :FORM FNODE 9. 14. VALUE-FORM-INDEX
) )
#Y(#:TOP-LEVEL-FORM-255 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
KCONSTVALUE-INDEX REMOVE-OLD-DEFINITIONS
#Y(KCONSTVALUE-INDEX #14Y(00 01 00 00 00 02 AB 62 D8 2C 03 01 19 02) :VALUE
KVALUE-FORM-INDEX
) )
#Y(#:TOP-LEVEL-FORM-256 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(CONST-INDEX
#48Y(00 01 00 00 00 02 0E 00 1C 08 D9 AC DA 71 31 24 03 0D D9 AC DC 71 31
62 C6 14 2C 03 06 19 02 D9 AC DC 71 31 D9 AD DD 71 31 D9 AE DA 31 31
1A 69
)
*COMPILING-FROM-FILE* CONST 3. :VALUE 1. 2. KVALUE-FORM-INDEX
) )
#Y(#:TOP-LEVEL-FORM-257 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-CONST-CODE REMOVE-OLD-DEFINITIONS
#Y(MAKE-CONST-CODE
#43Y(00 01 00 00 00 02 D8 AC D9 71 31 23 02 0E D8 AC DB 71 31 92 00 0F AA
02 21 0E 16 01 D8 AC 6E 06 AD 60 03 19 02 C7 19 03 C8 19 03
)
CONST 3. :FORM 1. (NIL) (T) CONST-INDEX
) )
#Y(#:TOP-LEVEL-FORM-258 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(BCONST-INDEX
#36Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 31 D9 AD DB 71 31 1A
04 82 00 84 01 93 00 A0 22 77 9C 19 05
)
*FUNC* FNODE 5. 6.
) )
#Y(#:TOP-LEVEL-FORM-259 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(GCONST-INDEX
#36Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 31 D9 AD DB 71 31 1A
04 82 00 84 01 93 00 A0 22 77 9C 19 05
)
*FUNC* FNODE 7. 8.
) )
#Y(#:TOP-LEVEL-FORM-260 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FCONST-INDEX REMOVE-OLD-DEFINITIONS
#Y(FCONST-INDEX
#43Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC D9 AD DA 71 31 37 03 8B B7 0F
AC 6E 03 AC AB 7A 02 0E 04 5C 0F 04 15 19 03 AC 2E 03 19 03
)
*FUNC* FNODE 17. CONSTVALUE-INDEX *FNODE-FIXUP-TABLE*
) )
#Y(#:TOP-LEVEL-FORM-261 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CODE-PART*) *CODE-PART*
)
#Y(#:TOP-LEVEL-FORM-262 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CODE-INDEX*) *CODE-INDEX*
)
#Y(#:TOP-LEVEL-FORM-263 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *DEAD-CODE*) *DEAD-CODE*
)
#Y(#:TOP-LEVEL-FORM-264 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *LABEL-SUBST*) *LABEL-SUBST*
)
#Y(#:TOP-LEVEL-FORM-265 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CURRENT-VALUE*) *CURRENT-VALUE*
)
#Y(#:TOP-LEVEL-FORM-266 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *CURRENT-VARS*) *CURRENT-VARS*
)
#Y(#:TOP-LEVEL-FORM-267 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
LABEL-SUBST REMOVE-OLD-DEFINITIONS
#Y(LABEL-SUBST
#66Y(00 02 00 00 00 03 AC 70 51 62 1A 1A 6A 00 AD 32 01 01 5A 1A 0A 86 01
00 AD AF AC 8D 0E 6E 9D 78 37 03 30 B2 82 01 AB 8C 96 6B 16 02 AB AD
70 51 AD 70 51 72 02 24 30 55 AC 62 30 55 AC D9 31 89 19 03
)
*CODE-PARTS* CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-268 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FINISH-CODE-PART REMOVE-OLD-DEFINITIONS
#Y(FINISH-CODE-PART
#33Y(00 00 00 00 00 01 6A 00 2E 01 6A 00 6A 02 37 01 30 1A 6A 03 31 97 0F
03 14 6A 04 37 01 30 1A 19 01
)
*CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
) )
#Y(#:TOP-LEVEL-FORM-269 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EMIT-JMP REMOVE-OLD-DEFINITIONS
#Y(EMIT-JMP
#34Y(00 01 00 00 00 02 D8 AC 6A 01 7A 03 0E 02 5C 0F 02 6A 03 AA AD 30 51
79 AD AB 30 55 16 02 2D 04 19 02
)
JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-270 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
TRAVERSE-ANODE REMOVE-OLD-DEFINITIONS
#Y(TRAVERSE-ANODE
#1828Y(00 01 00 00 00 02 AB 62 1A 87 11 00 0F 00 1A 24 6A 01 AA AC 2F 02
AA AC AD AD 6A 03 37 03 70 B2 30 BC 0F 03 16 01 1A 0C 0E 00 1B 5F
6A 01 8D 08 5F AA 2E 04 9B 0F 01 6A 05 70 16 AB DE AC 31 88 16 01
1A 86 A0 E1 AB E2 31 31 1A 82 70 AA 8D 08 57 E1 AB 8D 35 6F E3 CF
1A 86 BC 86 01 00 1F 6D 0E 00 1B 86 B5 6A 03 94 01 37 03 30 B6 9B
5A 25 0E 86 A1 AA 6E 11 0E 01 5C 0F 01 00 0F 07 1A 82 1C 9B 5B 77
E7 AB E2 71 31 23 10 67 E7 AB EA 71 31 6A 08 62 1A 1A 16 04 1A 86
7F D6 1A 24 86 01 00 E7 AB 8E 35 08 E7 AB EA 71 31 9E 21 68 82 01
AB 8C 96 6A 16 02 AB 6E 11 0E 01 5C 0F 01 92 00 5A D7 0F 07 9C 1A
83 68 E7 9C 5B 77 6E 15 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 86 22 E7
9C 5B 77 6E 16 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 86 0F E7 9C 5B 77
6E 17 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 85 FC D6 1A 15 E7 AB 2E 15
1A 80 A5 F1 AD F2 71 31 E7 AB EA 71 31 92 00 69 D7 0F 07 F3 AB 8D
35 64 AB 2E 11 16 02 1A 80 8D F5 F1 AE EA 80 31 03 14 6E 1E 60 02
1A 80 7E 64 21 AD AD AD 60 04 16 03 1A 80 72 91 02 71 64 22 AC 9D
1A 11 AC AC AC 2C 03 20 41 03 91 01 6C 64 23 AD AC 31 97 14 60 03
16 03 1A 80 50 64 26 AC AC 60 03 16 02 1A 80 45 9B 5B 77 9C 5B 5B
77 9D 5B 5B 5B 77 AC 6A 08 F0 37 02 8B B7 3C F1 AD E2 8D 31 FF 7F
00 0F 07 F1 AD F4 8D 31 FF 92 F1 AD 64 1F 8D 31 FF AE AA F1 AE 64
24 71 31 2F 25 41 02 91 01 FF B8 64 27 9C 14 60 02 16 02 14 0E 01
5C 0F 01 AC 60 01 1A 80 90 16 03 1A 85 54 64 28 F1 AE EA 80 31 03
14 6E 1E 60 02 1A 80 71 64 29 AD AD AD 60 04 16 03 1A 80 65 91 02
71 64 2A AC 9D 1A 11 AC AC AC 2C 03 20 41 03 91 01 6C 64 2B AD AC
31 97 14 60 03 16 03 1A 80 43 64 2C AC AC 60 03 16 02 1A 39 9B 5B
77 9C 5B 5B 77 9D 5B 5B 5B 77 AC 6A 08 F0 37 02 8B B7 35 F1 AD F4
8D 31 FF 9C F1 AD 64 1F 8D 31 FF B9 AA F1 AE 64 24 71 31 2F 25 41
02 91 01 44 64 2D AB 60 02 16 02 14 0E 01 5C 0F 01 AC 0E 08 5C 0F
08 16 03 1A 84 C2 16 03 1A 84 BD F5 AB 6E 1E 7A 02 0E 01 5C 0F 01
00 0F 07 AA 60 01 1A 2D 9B 5B 77 AA 6A 08 F0 37 02 8C B7 61 16 01
1A 84 99 9B 5B 77 AA 6A 08 F0 37 02 8B B7 17 64 28 AB 6E 1E 7A 02
0E 01 5C 0F 01 AA 0E 08 5C 0F 08 16 01 1A 84 76 16 01 1A 84 71 03
2E 1A 81 BB 9B 5B 77 9C 5B 5B 77 9D 5B 5B 5B 77 2C 03 30 14 27 FD
45 1A 84 56 64 33 AB 7A 02 0E 01 5C 0F 01 16 01 1A 84 47 9B 5B 77
9C 5B 5B 77 6F 31 AA 64 32 8F 01 30 61 16 01 1A 84 32 9B 5B 77 62
6E 34 9D 5A 25 35 19 03 36 1A 06 03 36 1A 09 03 37 14 AC 9D 1A 05
03 38 14 AB 9E 14 60 03 1A 01 00 14 0E 01 5C 0F 01 6A 39 9E 5B 77
AB AB 30 51 79 AB AB 30 55 16 03 6A 39 AA AC 30 51 79 AC AB 30 55
16 02 2D 3A 6A 05 70 16 AB DE AC 31 88 16 01 9B 0F 01 16 02 1A 83
D5 16 01 1A 83 D0 93 00 AA 23 3B 75 AA 23 3C 71 16 01 1A 83 2F 16
01 1A 83 BC 16 01 1A 83 39 37 05 A0 5B 5A F9 70 66 9C 5B 5B 5B 78
9D 5B 5B 77 62 1A 14 86 01 00 77 94 01 AE 37 06 71 60 AB B0 AC 30
68 16 02 82 01 AB 8C 96 68 16 02 64 40 AC 6E 41 AD A0 5B 5B 5B 7B
03 0E 01 5C 0F 01 16 02 9B 5B 5B 78 62 1A 12 86 01 00 6A 39 AA AC
30 51 79 AC AB 30 55 16 02 82 01 AB 8C 96 6A 16 02 2D 3A 1A 82 D9
9B 5B 77 9C 5B 5B 77 1A 33 64 26 AC AC 60 03 16 02 1A 3C AA 9D 5A
78 2F 25 41 02 91 01 6B 64 27 AB 60 02 16 02 1A 28 03 43 1A 24 6A
42 F3 AB E2 31 31 16 01 1B 71 03 44 1A 15 82 01 9C 5A 1C 7A 9C 5A
20 4F 93 01 0E 42 21 61 E3 64 45 2F 0D 14 0E 01 5C 0F 01 77 64 46
8E 04 12 D6 0F 07 64 47 64 48 64 48 62 2C 04 49 14 60 01 1A 03 00
0F 07 0F 08 16 02 1A 82 DB 64 4A 9C 5B 77 6E 15 9D 5B 5B 77 7A 03
0E 01 5C 0F 01 D7 0F 07 1A 82 A6 64 4B 9C 5B 77 9D 5B 5B 77 6E 2F
60 03 1A 82 78 9B 5A 14 9C 5B 77 6E 2F 60 02 1A 82 6B 03 4C 1A 82
66 9B 5B 77 9C 5B 5B 5B 77 F1 AC 64 1F 8E 31 05 E3 64 4D 2F 0D AA
F1 AD 64 24 71 31 2F 25 41 02 92 01 05 E3 64 4E 2F 0D 93 04 AB A1
5B 5B 5B 5B 7B 02 0E 01 5C 0F 01 93 04 24 4F 11 0E 01 77 AF 70 99
AB AB 30 51 79 AB AB 30 55 16 03 00 0F 07 0F 08 16 04 1A 82 4B 9B
5B 5B 77 64 50 9D 5B 77 6E 2F AC 7A 03 0E 01 5C 0F 01 77 AA AC 30
51 79 AC AB 30 55 16 03 1A 82 29 9B 5B 5B 77 9C 5B 77 64 51 AB E2
80 31 00 2F 25 41 02 64 52 AC AC 60 03 16 02 1A 81 57 64 53 9C 5B
77 2E 16 1A 18 9B 5B 5B 1B 55 9B 5B 77 64 51 AB 31 35 16 01 1B 66
64 53 9C 5B 77 2E 2F 14 60 02 1A 81 30 64 54 9C 5B 77 6E 2F 9D 5B
5B 7B 02 0E 01 5C 0F 01 9B 5B 78 62 1A 10 86 01 00 AC AB 30 51 79
AB AB 30 55 16 01 82 01 AB 8C 96 6C 16 02 1A 81 B5 9B 5B 5B 5B 77
9C 5B 77 64 55 AB E2 80 31 00 2F 25 41 02 64 56 AC AC A0 5B 5B 77
60 04 16 02 1A 80 DE 64 57 9C 5B 77 2E 17 1A 19 9B 5B 5B 5B 1B 4F
9B 5B 77 64 55 AB 31 35 16 01 1B 65 64 57 9C 5B 77 2E 2F 14 9D 5B
5B 77 60 03 1A 80 B2 AA 0E 01 5C 0F 01 D6 0F 07 64 47 64 48 64 48
00 1A 80 93 9B 5B 77 E7 AB EA 80 31 00 9C 5B 5B 77 6A 42 6F 31 62
AC 64 58 71 2D 1A 0E 93 00 AA 62 7A 02 AD 7F A5 02 16 01 82 00 9B
20 6F 16 01 AA 7F A7 00 64 59 80 2D 01 64 5A AC 9D 79 6E 41 AD AD
A1 5B 5B 5B 61 04 16 02 F6 14 0E 01 5C 0F 01 9B 5B 5B 5B 78 62 1A
10 86 01 00 AC AB 30 51 79 AB AB 30 55 16 01 82 01 AB 8C 96 6C 16
02 1A 80 E6 AA 0E 01 5C 0F 01 D6 0F 07 1A 80 BD AA 0E 01 5C 0F 01
1A 80 D1 AA 0E 01 5C 0F 01 D7 0F 07 64 47 64 48 64 48 02 14 6D 04
49 60 01 0F 08 1A 80 B6 9B 14 0E 01 5C 0F 01 2D 3A 1A 32 0E 07 1C
FC 74 6A 07 23 13 FC D0 93 00 AA 23 3D FC D8 AA 23 3E FC D3 16 01
93 00 AA 23 3C 05 AA 24 3E FC CB 16 01 64 3F 0E 01 5C 0F 01 9B 5B
77 2E 04 02 0F 00 1A 80 73 AA 0E 01 5C 0F 01 9B 5B 1A 1E AA 0E 01
5C 0F 01 9B 5B 77 AB AB 30 51 79 AB AB 30 55 16 02 1A 80 52 AA 0E
01 5C 0F 01 9B 5B 77 AB AB 30 51 79 AB AB 30 55 16 02 1A 07 9B 14
0E 01 5C 0F 01 00 0F 07 0F 08 1A 2E AA 0E 01 5C 0F 01 D7 0F 07 1A
06 AA 0E 01 5C 0F 01 00 0F 08 1A 18 AA 0E 01 5C 0F 01 64 5B 6A 08
37 05 31 53 0F 08 1A 06 E3 03 5C 14 2F 0D 82 01 AB 8C 96 F9 3A 00
19 04
)
*DEAD-CODE* *CODE-PART* LABEL-SUBST *LABEL-SUBST* EMIT-JMP *CODE-PARTS*
CODE-PART *CURRENT-VALUE* *CURRENT-VARS* ANODE 3. TRAVERSE-ANODE "ITEM"
COMPILER-ERROR
#S(HASH-TABLE EQ (UNBIND1 . 1681.) (UNWIND-PROTECT-CLEANUP . 1670.)
(LIST* . 1659.) (LIST . 1659.) (CONS . 1659.) (SVSET . 1645.)
(SVREF . 1645.) (SYMBOL-FUNCTION . 1645.) (CONSP . 1645.)
(ATOM . 1645.) (CDR . 1645.) (CAR . 1645.) (EQ . 1645.) (NOT . 1645.)
(MVCALL . 1645.) (LIST-TO-MV . 1645.) (MV-TO-LIST . 1645.)
(NV-TO-STACK . 1645.) (MV-TO-STACK . 1645.) (STACK-TO-MV . 1645.)
(UNLIST* . 1645.) (UNLIST . 1645.) (PUSH-UNBOUND . 1645.)
(APPLY . 1645.) (FUNCALL . 1645.) (CALLCKEY . 1645.) (CALLC . 1645.)
(CALLSR . 1645.) (CALLS2 . 1645.) (CALLS1 . 1645.)
(MAKE-VECTOR1&PUSH . 1645.) (POP . 1645.) (PUSH . 1645.)
(PROGV . 1645.) (PUSH-NIL . 1645.) (UNWIND-PROTECT-CLOSE . 1623.)
(UNWIND-PROTECT-OPEN . 1600.) (CATCH-OPEN . 1600.) (JSR . 1590.)
(JMP . 1579.) (THROW . 1523.) (BARRIER . 1523.) (RET . 1523.)
(T . 1496.) (STORE . 1487.) (HANDLER-BEGIN . 1487.)
(UNWIND-PROTECT-NORMAL-EXIT . 1487.) (CATCH-CLOSE . 1487.)
(TAGBODY-CLOSE . 1487.) (BLOCK-CLOSE . 1487.) (MVCALLP . 1487.)
(VALUES1 . 1487.) (SKIPSP . 1487.) (SKIPI . 1487.) (SKIP . 1487.)
(VALUES0 . 1475.) (HANDLER-OPEN . 1365.) (TAGBODY-CLOSE-NIL . 1346.)
(NIL . 1346.) (GO . 1311.) (TAGBODY-OPEN . 1220.)
(RETURN-FROM . 1190.) (BLOCK-OPEN . 1118.) (BOUNDP . 1032.)
(JMPIFBOUNDP . 1032.) (APPLYP . 1027.) (FUNCALLP . 1027.)
(CALL2 . 1014.) (CALL1 . 1014.) (CALL0 . 1014.) (CALL . 998.)
(CALLP . 1705.) (COPY-CLOSURE . 974.) (VENV . 855.) (JMPHASH . 754.)
(JMPIFNOT1 . 1534.) (JMPIF1 . 1534.) (JMPIFNOT . 1534.)
(JMPIF . 1534.) (UNWINDSP . 610.) (UNWIND . 573.) (BIND . 568.)
(SETVALUE . 528.) (GETVALUE . 511.) (SET . 413.) (GET . 255.)
(GCONST . 125.) (BCONST . 106.) (FCONST . 87.) (CONST . 16.)
)
CONST :FORM MAKE-CONST-CODE 1. FALSE TRUE FCONST-INDEX BCONST-INDEX
GCONST-INDEX #.#'EQ VAR 4. FNODE 2. GETVALUE KCONSTVALUE-INDEX 9.
ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK LOADI LOAD
SETVALUE STOREIC STOREC STOREV STOREI STORE BIND CONST-INDEX
EXPAND-UNWIND SPDEPTH-DIFFERENCE 0. SKIPSP MAKE-LABEL
#S(HASH-TABLE EQ (JMPIFNOT1 . 16.) (JMPIF1 . 9.) (JMPIFNOT . 5.)
(JMPIF . 1.)
)
JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE *CODE-INDEX* FINISH-CODE-PART JMPIF
JMPIF1 JMPIFNOT JMPIFNOT1 (VALUES1) JMPHASH CONSTVALUE-INDEX *FUNC*
(VENV) (NIL) VENV (NIL) :HORIZONT :VALUE MAKE-CONST COPY-CLOSURE CALL
(PUSH) VAR-CLOSUREP VAR-STACKZ JMPIFBOUNDP BLOCK-OPEN BLOCK RETURN-FROM-I
RETURN-FROM TAGBODY-OPEN TAGBODY GO-I GO LIST VECTOR HANDLER-OPEN
#.#'SYMBOLP "LISTITEM"
) )
#Y(#:TOP-LEVEL-FORM-271-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
NOTE-REFERENCES REMOVE-OLD-DEFINITIONS
#Y(NOTE-REFERENCES
#150Y(00 01 00 01 00 08 3C 01 9D 5A 25 00 80 85 9D 1A 10 9D 5B 77 AC AB
30 51 79 AB AB 30 55 16 02 9D 5B 5B 77 9D 1A 29 9D 5B 5B 78 62 AB
8B 96 80 60 86 01 00 AD AB 30 51 79 AB AB 30 55 16 01 82 01 1A 69
9D 1A 07 9D 5B 1A 03 9D 5B 5B 5B 77 9E 14 AB 30 51 79 AB AB 30 55
19 05 9D 5B 78 62 AB 8B 96 2E 86 01 00 AE AB 30 51 79 AB AB 30 55
16 01 82 01 1A 6A 9D 5B 5B 5B 78 62 1A 10 86 01 00 AE AB 30 51 79
AB AB 30 55 16 01 82 01 AB 8C 96 6C 00 19 05 00 19 03
)
#S(HASH-TABLE EQ (HANDLER-OPEN . 104.) (TAGBODY-OPEN . 78.)
(JMPTAIL . 61.) (JSR . 57.) (BLOCK-OPEN . 57.)
(UNWIND-PROTECT-CLOSE . 54.) (UNWIND-PROTECT-OPEN . 54.)
(CATCH-OPEN . 54.) (JMPIFBOUNDP . 54.) (JMPHASH . 26.)
(JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.) (JMPCASE . 5.) (JMP . 2.)
) ) )
#Y(#:TOP-LEVEL-FORM-271-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
REMOVE-REFERENCES REMOVE-OLD-DEFINITIONS
#Y(REMOVE-REFERENCES
#201Y(00 01 00 01 00 08 3C 01 62 9E 5A 25 00 80 B7 9E 1A 19 9E 5B 77 AA
AE AC 70 51 37 07 71 52 30 55 AA AC 37 03 7F BB 01 16 01 9E 5B 5B
77 AA 9F 1A 35 9E 5B 5B 78 62 1A 17 86 01 00 14 AF AC 70 51 37 07
71 52 30 55 AA AD 37 03 7F BB 02 82 01 AB 8C 96 65 16 02 1A 80 6E
9E 1A 07 9E 5B 1A 03 9E 5B 5B 5B 77 AA A0 14 AC 70 51 37 07 71 52
30 55 AA AC 37 03 7F BB 01 16 01 1A 80 4A 9E 5B 78 62 1A 17 86 01
00 14 B0 AC 70 51 37 07 71 52 30 55 AA AD 37 03 7F BB 02 82 01 AB
8C 96 65 16 02 1A 25 9E 5B 5B 5B 78 62 1A 17 86 01 00 14 B0 AC 70
51 37 07 71 52 30 55 AA AD 37 03 7F BB 02 82 01 AB 8C 96 65 16 02
15 19 03
)
#S(HASH-TABLE EQ (HANDLER-OPEN . 148.) (TAGBODY-OPEN . 111.)
(JMPTAIL . 82.) (JSR . 78.) (BLOCK-OPEN . 78.)
(UNWIND-PROTECT-CLOSE . 75.) (UNWIND-PROTECT-OPEN . 75.)
(CATCH-OPEN . 75.) (JMPIFBOUNDP . 75.) (JMPHASH . 36.)
(JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.) (JMPCASE . 5.) (JMP . 2.)
) ) )
#Y(#:TOP-LEVEL-FORM-272
#54Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 62 1A 0A 86 01 00 14 AD 63 30 68
82 01 AB 8C 96 72 16 02 DA 8C 61 0B AA DA 70 51 8D 03 04 DA DB 2F 04 DA
AB 31 83 C5 19 02
)
#.#'EQ
#1=(NIL T CONST LOAD LOADI LOADC LOADV LOADIC STORE STOREI STOREC STOREV
STOREIC GETVALUE SETVALUE POP VENV COPY-CLOSURE BOUNDP VALUES1
MV-TO-LIST TAGBODY-CLOSE-NIL NOT EQ CAR CDR CONS ATOM CONSP
SYMBOL-FUNCTION SVREF SVSET LIST LIST*
)
ONE-VALUE-OPS
(DEFCONSTANT ONE-VALUE-OPS
(LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
(DOLIST (OP '#1#) (SETF (GETHASH OP HT) T)) HT
) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-273
#94Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 62 1A 0A 86 01 00 14 AD 62 30 68
82 01 AB 8C 96 72 16 02 DA 62 1A 0A 86 01 00 14 AD DB 30 68 82 01 AB 8C
96 72 16 02 DC 62 1A 0A 86 01 00 14 AD DD 30 68 82 01 AB 8C 96 72 16 02
DE 8C 61 0B AA DE 70 51 8D 03 04 DE DF 2F 08 DE AB 31 83 C9 19 02
)
#.#'EQ
#1=(NIL PUSH-NIL T CONST LOAD LOADI LOADC LOADV LOADIC GETVALUE POP JSR
JMPTAIL BARRIER VENV COPY-CLOSURE CALL CALL0 CALLS1 CALLS2 CALLSR
FUNCALL PUSH-UNBOUND JMPIFBOUNDP BOUNDP VALUES0 STACK-TO-MV MVCALL
BLOCK-OPEN TAGBODY-OPEN TAGBODY-CLOSE-NIL GO GO-I UNWIND-PROTECT-OPEN
UNWIND-PROTECT-CLOSE HANDLER-OPEN HANDLER-BEGIN LIST
)
#2=(STORE STOREI STOREC STOREV STOREIC SETVALUE BIND PROGV PUSH
MAKE-VECTOR1&PUSH CALL1 CALL2 CALLC CALLCKEY APPLY UNLIST UNLIST*
VALUES1 LIST-TO-MV MVCALLP CATCH-OPEN NOT EQ CAR CDR CONS ATOM CONSP
SYMBOL-FUNCTION SVREF SVSET LIST*
)
ONE
#3=(MV-TO-STACK NV-TO-STACK MV-TO-LIST RETURN-FROM RETURN-FROM-I THROW
UNWIND-PROTECT-NORMAL-EXIT
)
ALL FOR-VALUE-TABLE
(DEFCONSTANT FOR-VALUE-TABLE
(LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
(DOLIST (OP '#1#) (SETF (GETHASH OP HT) 'NIL))
(DOLIST (OP '#2#) (SETF (GETHASH OP HT) 'ONE))
(DOLIST (OP '#3#) (SETF (GETHASH OP HT) 'ALL)) HT
) )
CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-274 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SIMPLIFY REMOVE-OLD-DEFINITIONS
#Y(SIMPLIFY
#950Y(00 01 00 00 00 02 93 01 9B 5A 25 00 80 76 9B 5B 77 D9 37 01 31 84
1A 80 6F C6 1A 80 6B 93 00 23 02 0B 9B 5B 77 D9 37 01 71 84 23 03
6C 93 00 23 04 0C 9B 5B 5B 77 D9 37 01 71 84 23 03 5B C8 1A 80 46
C8 1A 80 42 00 1A 3F C6 1A 3C 9D 5A 5A 25 09 80 48 AC E2 9F 5A 5B
77 60 02 1A 82 A8 AC CE 1A 82 A3 9D 5A 5A 25 0C 36 AC D0 1A 82 98
AC D1 1A 82 93 9D 5A 5B 77 AD E7 30 AC AD E2 96 02 60 02 1A 82 3B
DE DF 2F 08 F6 62 62 AE 94 00 62 AF 9D 1F 82 A4 9D 5B F7 92 00 FF
B1 AA 23 05 44 9C 1F 82 92 9D 5A 5A 25 10 82 8B 9C 5A 77 6A 11 62
8C 67 82 81 AD 9D F9 1A 81 1D 9C 5A 5A 25 12 82 74 9C 5B 1F 82 6F
9C 5B 77 EB 8E 04 82 67 AD 9D 5B F9 1A 81 02 AC D7 1A 80 F7 AC 03
15 1A 80 F1 9D 5A 5B 77 9D 5A 5A 25 16 80 70 9D 5A 5B 77 AE E2 AC
AE 32 02 35 1A 81 77 9D 5A 5B 77 9E 5A 5B 5B 77 AF EF AD AD B0 32
02 35 1A 80 87 AD 03 1A 1A 81 8F AA 23 19 76 AC F3 30 AC AD E2 96
02 7A 02 30 AC 1A 81 9F AA 23 19 81 0D AD E2 AC 31 98 1A 81 6C AE
03 1C 1A 81 30 AE CD 1A 81 14 AD 03 1D 1A 80 BE 9D 5A 5B 77 AB AB
8F 01 30 70 16 02 1A 81 E2 9D 5A 5B 77 23 18 FF B8 16 01 1A 81 D5
9C 5A 5A 25 1E 81 CE 9C 5A 5B 77 9E 5A 5B 77 9F 5A 5B 5B 77 AF EF
F1 AF AF 32 03 35 1A 14 9C 5A 5B 77 9E 5A 5B 77 9F 5A 5B 5B 77 AF
EF AE AE 32 02 35 14 9E 14 60 03 1A 81 52 9D 5A 5B 77 9F 5A 5B 77
AF 03 1F 1A 81 3C 9C 5A 77 AA 23 1F 6B 16 01 1A 81 81 AB 64 21 30
AC AC 03 22 1A 81 47 93 01 64 20 8D 04 6E 93 01 64 23 8E 04 81 67
AC 03 24 14 30 AC AC 9D 5B 14 30 AE 1A 81 2C AE 03 27 1A 80 90 9C
5A 77 AA 23 25 80 4D AA 24 0A 2A 9D 5A 5B 77 AA 23 19 11 AD E2 96
02 7A 02 30 AC AE 03 28 14 30 AC 1A 80 8C 9E 5B 1F 51 9E 5B 77 64
26 8E 04 49 16 02 1A 81 1C 16 01 1A 81 17 AC 03 29 1A 80 E2 9C 5A
77 6A 11 62 8B 67 71 9C 5A 77 AA 23 2A 04 AA 24 2B 07 AE 9E 5B FA
1A 80 83 16 01 1A 80 F1 9D 5A 5B 77 9D 5A 5A 25 2C 80 5B AE 03 2D
14 AD 9E 1A 15 9D 5A 5B 77 AB AB 8F 01 30 6E AB AB 90 01 2F 26 AE
CD 14 AC 9F 14 32 01 36 14 60 02 14 30 AC AE 9F 5B 1A 16 9D 5A 5B
77 AA AC 8F 01 30 FE AD AA AC 8F 01 2F FE AC AF 9F 5B FB 14 30 AE
7D 06 16 02 1A FD F5 AD 64 2D 9D 14 60 02 14 30 AC AD 9E 5B 1A 18
9D 5A 77 6A 11 62 8C 67 19 AD 64 2D 96 02 7A 02 30 AC AD 03 2E 14
9F 5C 14 30 AE 7D 05 16 01 1A FD C4 16 01 1A 80 64 9C 5A 77 AA 24
2F 80 5A 9D 5A 5B 77 9F 5A 5B 77 AF 03 2F 14 AD AD 72 02 35 60 02
14 30 AC AF 94 05 30 AE 7D 07 16 03 1A FD 95 9D 5A 78 64 30 8E 04
32 AC 03 31 14 30 AC 7D 04 1A FD 82 9D 5A 77 6A 32 AC 7F 67 00 9D
F9 9C F8 1A FD 72 AD D9 AD 31 88 9E FC 16 01 1A 25 16 01 1A FD 5C
03 18 1A 80 5E 16 01 9D 20 56 92 02 13 14 D9 37 01 71 84 AB 9C 21
07 AA 23 03 55 92 01 52 16 01 16 04 91 00 56 16 01 62 9F 5A 77 24
33 80 54 9F 5B F6 1F 80 4E 9B 5A 77 23 34 14 9F 5B 5A 77 24 0A 80
40 9F 5B 5B F6 1F 3A 9B 5A 77 24 34 34 9B 5A 5B 77 9C 5A 5B 5B 77
AC A2 5B 21 FF A2 A1 5B 5A 5B 5A 14 B1 64 35 AE AF AE 72 02 35 AF
7A 04 30 AC 16 03 93 00 2E 36 93 04 2E 37 AE 94 01 30 AE 7C 02 16
01 15 19 03
)
#S(HASH-TABLE EQ (THROW . 61.) (RET . 61.) (RETURN-FROM-I . 61.)
(RETURN-FROM . 61.) (JMPTAIL . 58.) (GO-I . 58.) (GO . 58.)
(BARRIER . 58.) (JMPHASH . 54.) (JMPCASE1-FALSE . 17.)
(JMPCASE1-TRUE . 17.) (JMPCASE . 17.) (JMP . 2.)
)
FOR-VALUE JMPCASE1-TRUE ALL JMPCASE1-FALSE ONE SIMPLIFY "AT-END"
COMPILER-ERROR
#S(HASH-TABLE EQ (SVREF . 13.) (CONS . 13.) (EQ . 13.) (POP . 13.)
(STACK-TO-MV . 2.) (LIST* . 2.) (LIST . 2.) (CONSP . 99.) (ATOM . 99.)
(SYMBOL-FUNCTION . 99.) (CDR . 99.) (CAR . 99.) (NOT . 99.)
(LIST-TO-MV . 99.) (MV-TO-LIST . 99.) (VALUES1 . 99.) (VALUES0 . 99.)
(BOUNDP . 99.) (VENV . 99.) (GETVALUE . 99.) (LOADIC . 99.)
(LOADV . 99.) (LOADC . 99.) (LOADI . 99.) (LOAD . 99.) (CONST . 99.)
(T . 99.) (NIL . 99.)
)
SKIP (SKIP 1.)
#S(HASH-TABLE EQ (STACK-TO-MV . 11.) (LIST-TO-MV . 6.) (VALUES0 . 1.)
(VALUES1 . 76.)
)
(NIL) (CAR) (POP)
#S(HASH-TABLE EQ (LIST* . 595.) (PUSH-UNBOUND . 553.)
(NV-TO-STACK . 412.) (MV-TO-STACK . 380.) (PUSH . 315.) (POP . 279.)
(SKIPSP . 256.) (SKIPI . 184.) (SKIP . 56.) (NOT . 18.) (VALUES1 . 2.)
)
ONE-VALUE-OPS #S(HASH-TABLE EQ (CONSP . 27.) (ATOM . 22.) (NOT . 2.))
(NOT) (CONSP) (ATOM)
#S(HASH-TABLE EQ (STORE . 91.) (NV-TO-STACK . 402.) (PUSH . 61.)
(LOAD . 106.) (SKIPI . 16.) (SKIP . 2.)
)
SKIPI 0. 1. (POP) (POP) NV-TO-STACK (VALUES1)
#S(HASH-TABLE EQ (SKIPSP . 25.) (SKIPI . 2.) (SKIP . 111.)) SKIPSP
(STORE 0.) (VALUES1) (SKIP 1.) (PUSH) (VALUES1) POP (LOAD 0.) (STORE 0.)
(STORE 0.) (PUSH) VALUES0 STACK-TO-MV
#S(HASH-TABLE EQ (NIL . 78.) (VALUES0 . 78.) (STACK-TO-MV . 10.))
PUSH-NIL (PUSH) PUSH-UNBOUND (1.) (CONS) FOR-VALUE-TABLE RET JSR JMPTAIL
REMOVE-REFERENCES NOTE-REFERENCES
) )
#Y(#:TOP-LEVEL-FORM-275 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-PART REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-PART
#40Y(00 01 00 00 00 02 AB 6E 00 91 00 03 00 19 03 14 70 51 62 1A 0C 86 01
00 14 8E 0E 03 AA 2E 01 82 01 AB 8C 96 70 00 19 05
)
SIMPLIFY OPTIMIZE-VALUE
) )
#Y(#:TOP-LEVEL-FORM-276 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-LABEL REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-LABEL
#208Y(00 01 00 03 00 11 3A 03 07 AE D8 37 01 80 84 03 3A 02 07 6A 01 AE
81 01 01 02 3A 01 06 AC 37 01 7F A0 01 AE 9D 5B 22 80 92 91 04 80
95 00 19 05 62 1A 0B AA 93 05 82 06 B1 6F 04 7F A6 00 9F 20 72 6A
01 AA B1 62 32 01 02 16 01 AA 62 1A 1E 86 01 00 14 D8 37 01 71 84
6A 01 AB 72 01 01 92 00 08 AC AC AC 37 01 27 FF 9D 16 02 82 01 AB
8C 96 5E 00 19 09 AD 6A 01 AC 32 01 01 78 30 AE 6A 01 AA AC 62 32
01 02 16 01 AD 37 01 30 A0 78 92 00 05 14 D8 B2 31 88 16 01 B0 62
30 55 AE 2E 06 19 07 93 00 AA 8E 0E 11 6A 01 AB 32 01 01 5A 77 24
05 06 AF AB 8E 03 FF BC 00 19 07 DA 2E 03 92 04 FF 6B 14 70 51 92
00 FF 67 9B 5B 1C 54 00 19 06
)
CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES
JMP OPTIMIZE-PART
) )
#Y(#:TOP-LEVEL-FORM-277 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-SHORT REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-SHORT
#563Y(00 01 00 01 00 08 3A 01 07 6A 00 AD 81 01 01 01 AB 37 01 70 A0 94
00 92 00 82 15 AD 9D 22 81 F4 93 03 9B 5A 25 01 81 EA AC AB 2F 02
6A 00 AA B2 62 32 01 02 16 01 AA B1 AC 70 51 37 07 71 52 30 55 AA
2E 03 16 01 1A 81 C6 62 AE 70 51 62 1A 80 D8 86 01 00 14 8E 0E 80
CE 6A 00 AB 72 01 01 93 00 9B 5A 25 04 80 BE AB B2 30 AC AC B1 30
51 79 B1 AB 30 55 16 01 AC B0 30 51 79 B0 AB 30 55 16 01 AC 83 04
16 02 1A 80 9E 7C 00 92 01 80 7A 1A 80 67 C8 1A 80 7D C9 1A 80 79
9B 5B 77 9C 5B 5B 77 93 02 C8 59 14 93 03 C9 59 14 B6 9F 22 17 A5
F9 B0 B5 30 51 79 B5 AB 30 55 16 01 B0 83 08 93 0B 24 05 02 7D 01
B6 9E 22 17 A4 F8 B0 B4 30 51 79 B4 AB 30 55 16 01 B0 83 08 93 0B
24 06 02 7D 00 AD DF 37 01 71 84 23 08 02 7C 01 AC DF 37 01 71 84
24 08 FF 93 92 01 10 92 00 0D E1 A1 5B 79 B0 AB 30 AE 16 01 7C 01
F6 AF 91 02 FF 84 91 01 FF 84 CD 14 AF AF 7A 03 30 AC 16 06 1A 09
E3 2E 0C 16 02 1A 02 16 02 82 01 AB 8C 96 FF 23 16 02 AE E5 B0 70
51 37 05 71 53 30 55 AE 2E 03 AA 62 1A 19 86 01 00 6A 00 AB 72 01
01 2E 0E AA 2E 0F AA 6A 00 AC 72 01 01 2F 10 82 01 AB 8C 96 63 16
06 1A 80 B0 9B 5B 77 9C 5B 5B 77 AD 9D 21 05 AD 9C 22 FE D5 16 03
1A 80 9B 62 AC 62 30 AE AB 70 51 62 1A 80 57 EC B2 72 00 17 AA 62
1A 09 86 01 00 14 AF 2F 15 82 01 AB 8C 96 73 16 02 6A 00 AB 94 03
72 02 24 AB AF AC 32 01 02 16 03 AE AC B0 70 51 37 07 71 52 30 55
AB 83 03 16 01 1A 1B 86 01 00 14 8E 0E 14 AA B2 8D 03 0F 6A 00 AB
72 01 01 9B 5A 77 23 13 FF AD 16 01 82 01 AB 8C 96 5F 16 02 AC AC
30 AE 92 00 26 14 62 1A 0D 86 01 00 6A 00 AB 72 01 01 2E 16 82 01
AB 8C 96 6F 16 02 AB 2E 03 19 06 9B 5B 77 AC 9C 22 FE 1B 16 01 00
19 06 16 01 AD 9D 21 05 94 03 9D 22 13 9E 5A 77 23 11 0D AD 9D 21
FF 51 9E 5B 5A 77 24 12 FF 49 00 19 05
)
*CODE-PARTS*
#S(HASH-TABLE EQ (JMPCASE1-FALSE . 318.) (JMPCASE1-TRUE . 318.)
(JMPCASE . 318.) (JMP . 479.)
)
LABEL-SUBST OPTIMIZE-LABEL
#S(HASH-TABLE EQ (JMPHASH . 185.) (JMPCASE1-FALSE . 53.)
(JMPCASE1-TRUE . 53.) (JMPCASE . 53.) (JMP . 2.)
)
JMPCASE1-TRUE JMPCASE1-FALSE FOR-VALUE ALL (VALUES1) JMPCASE
OPTIMIZE-SHORT COMPILER-ERROR #.#'INTEGERP SIMPLIFY OPTIMIZE-VALUE
OPTIMIZE-JMPCASE JMPHASH HANDLER-OPEN JMP #.#'COPY-LIST NOTE-REFERENCES
OPTIMIZE-PART
) )
#Y(#:TOP-LEVEL-FORM-278 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GET-BOOLEAN-VALUE REMOVE-OLD-DEFINITIONS
#Y(GET-BOOLEAN-VALUE
#209Y(00 01 00 00 00 02 62 46 00 80 BF 1A 30 A0 5A 5A 25 01 80 B4 C5 47
1A 80 B1 C6 47 1A 80 AC A0 5A 5B 5B 1C 0F A0 5A 5B 5B 77 DC AB DD
80 31 00 23 06 80 95 C6 47 1A 80 92 9E 58 F9 82 05 A0 20 4D 92 05
80 84 00 2A 01 00 0B 00 00 AA AE 6C 07 02 B1 70 51 62 1A 80 6B 6A
08 AB 32 01 01 77 9B 5A 25 09 2B 00 16 05 47 1A 80 60 9B 5B 5B 5A
1C 73 9B 5B 5B 5A 1A 11 B4 9C 5B 5A 22 03 DB 9F 33 B4 9C 5B 5B 5A
22 0F C5 14 9F 33 16 01 1A 32 E2 2E 0B 16 01 1A 2B 16 01 1A 27 86
01 00 14 8D 0E FF B6 9B 5A 25 0C 17 00 16 04 47 1A 1E C5 19 04 C6
19 04 AA 23 03 76 AA 23 02 75 00 19 04 E2 2E 0B 82 01 AB 8C 96 53
16 04 00 47 14 91 01 64 15 19 03
)
VALUE
#S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 41.) (CATCH-CLOSE . 41.)
(TAGBODY-CLOSE . 41.) (BLOCK-CLOSE . 41.) (VALUES1 . 41.)
(SETVALUE . 41.) (STOREIC . 41.) (STOREC . 41.) (STOREV . 41.)
(STOREI . 41.) (STORE . 41.) (SKIPSP . 41.) (SKIPI . 41.) (SKIP . 41.)
(UNBIND1 . 41.) (NOT . 38.) (CONST . 12.) (LIST* . 7.) (LIST . 7.)
(CONS . 7.) (T . 7.) (TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.)
(NIL . 2.)
)
FALSE TRUE CONST 3. :FORM
#Y(GET-BOOLEAN-VALUE-NEU
#29Y(00 01 00 00 00 02 07 00 01 1C 09 AB 07 00 01 22 09 00 19 02 9C 0C
00 01 19 02 00 48 01
)
NIL NIL
)
*CODE-PARTS*
#S(HASH-TABLE EQ (JMPCASE1-FALSE . 20.) (JMPCASE1-TRUE . 20.)
(JMPCASE . 20.) (JMP . 8.)
)
GET-BOOLEAN-VALUE COMPILER-ERROR
#S(HASH-TABLE EQ (CATCH-OPEN . 1.) (BLOCK-OPEN . 1.) (JMPIFBOUNDP . 1.))
) )
#Y(#:TOP-LEVEL-FORM-279 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-JMPCASE REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-JMPCASE
#145Y(00 02 00 00 00 03 9C 5A 77 23 00 80 64 00 19 03 AD D9 AD 94 06 6E
02 7A 03 30 AC AB AF AD 70 51 37 06 DB 71 52 30 55 AD 2E 04 AB DD
37 01 71 84 2E 06 19 05 E0 AE 94 05 1A 21 9B 5A 5A 25 09 1E AA 94
01 9C F9 9B F8 16 02 1A 10 B0 2E 04 B1 2E 06 19 08 AB 82 01 14 30
AE 84 02 9B 20 5C AC 8E 95 08 B0 D8 AF B1 7A 03 30 AC AC 8D 93 5D
00 19 08 9C 5A 5B 77 9D 5A 5B 5B 77 AB 9C 21 FF 91 AB DF 37 01 8D
84 08 AA DF 37 01 8E 84 FF A6 00 19 05
)
JMPCASE JMP GET-BOOLEAN-VALUE 1. OPTIMIZE-PART CODE-PART OPTIMIZE-SHORT
FOR-VALUE 0.
#S(HASH-TABLE EQ (NOT . 20.) (UNWIND-PROTECT-CLEANUP . 1.)
(CATCH-CLOSE . 1.) (TAGBODY-CLOSE . 1.) (BLOCK-CLOSE . 1.)
(VALUES1 . 1.) (SKIPSP . 1.) (SKIPI . 1.) (SKIP . 1.) (UNBIND1 . 1.)
) ) )
#Y(#:TOP-LEVEL-FORM-280 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-VALUE REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-VALUE
#233Y(00 01 00 01 00 08 3A 01 07 6A 00 AD 81 01 01 01 93 01 9B 5A 25 01
80 CE AB B1 AD 70 51 37 07 71 52 30 55 AF E2 AE CE 7B 02 30 AC 93
03 24 02 0D E4 A1 5B 79 B0 AB 30 AE 16 01 AF 2E 0D AF 2E 0E 9C 1A
80 65 9B 5B 77 9C 5B 5B 77 93 02 24 02 09 AB DB 37 01 71 84 24 04
0E 93 02 24 05 15 AA DB 37 01 71 84 23 04 0C AE DE 9F 5B 79 7F AC
02 AF AF 2F 07 94 04 6E 08 AA 23 09 FF 9C AA 24 11 31 AC B1 AE 70
51 37 07 71 52 30 55 AF E2 AD D5 7B 02 30 AC 93 03 24 05 0D EB A1
5B 79 B0 AB 30 AE 16 01 AF 2E 0D AF 2E 0E 9D 14 2E 0F B0 2E 10 19
07 00 19 07 AE E2 AD AD 7A 03 30 AC AB EC 37 01 71 84 37 01 28 02
08 FF 3D 94 03 6E 08 91 00 64 00 19 06 9B 5B 77 AA DB 37 01 8E 84
06 9C 5B 5B 5A 1C 66 00 19 05 00 19 04
)
*CODE-PARTS*
#S(HASH-TABLE EQ (JMP . 189.) (JMPCASE1-FALSE . 46.)
(JMPCASE1-TRUE . 46.) (JMPCASE . 46.)
)
JMPCASE1-TRUE FOR-VALUE ALL JMPCASE1-FALSE JMPCASE OPTIMIZE-JMPCASE
GET-BOOLEAN-VALUE TRUE JMP (TRUE) (VALUES1) SIMPLIFY OPTIMIZE-PART
OPTIMIZE-LABEL OPTIMIZE-SHORT FALSE (FALSE) (VALUES1) CODE-PART
) )
#Y(#:TOP-LEVEL-FORM-281 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COALESCE REMOVE-OLD-DEFINITIONS
#Y(COALESCE
#125Y(00 00 00 01 00 07 3A 01 1B 62 D8 6A 01 70 16 1A 05 AB 83 02 84 01
AB AB 90 01 32 75 16 02 AA 31 4A 16 01 F7 00 2A 01 37 05 C5 F9 B1
80 48 02 70 66 AD 62 1A 32 86 01 00 6A 01 AB 72 01 01 9B 1F 22 9B
5B 1F 1E 9B 5B 5B 1F 19 93 00 9C 5B 77 9D 5B 5B 5A 7B 02 AC AB B0
62 30 67 79 AB B0 AC 30 68 16 02 16 01 82 01 AB 8C 96 4A 16 02 00
0B 01 00 AB 6C 03 01 AB 30 6A 06 01 00 19 04
)
0. *CODE-PARTS* #.#'EQUAL
#Y(COALESCE-1
#258Y(00 02 00 00 00 03 9C 5B 1B 03 00 19 03 62 AC 1A 0E 93 00 6A 01
AB 72 01 01 83 02 16 01 82 00 9B 20 6F 16 01 AA 7F A7 00 62 6A
01 70 16 DA 62 B0 1A 0E 93 00 6A 03 AB 72 01 01 83 02 16 01 82
00 9B 20 6F 16 01 AA 7F A7 00 37 05 71 4C 1A 3C AF B2 1A 16 16
03 1A 17 93 01 9C 1F 77 93 01 93 01 AB 2F 06 16 02 82 01 82 00
9C 20 6B 16 02 AF 1A 08 AA 9C 5A 78 30 AC 82 00 9B 20 75 16 01
67 01 00 83 04 67 01 00 AE 2F 07 16 02 DC AE 90 00 28 17 29 2A
01 93 04 9B 5A 0B 01 00 AB 6C 05 01 94 06 8F 00 28 FF A9 16 02
E0 6E 09 E2 AB CE 7B 02 AF B2 1A 1C 16 03 1A 1D 93 01 9C 1F 77
93 01 6A 01 AF 9E 79 AB AD AC 32 01 02 16 04 82 01 82 00 9C 20
65 16 02 AB B2 30 55 AB E4 AF 31 88 AE AC 70 A6 6A 01 37 01 30
1A AC 6A 03 37 01 30 1A 16 02 6A 01 AC 72 01 01 2E 0D AF 2E 0E
02 0C 00 01 19 07
)
NIL *CODE-PARTS* #.#'MAX *CODE-POSITIONS* #.#'CONSP
#Y(COALESCE-1-1 #15Y(00 01 00 00 00 02 93 01 68 00 01 31 04 19 02) NIL
)
REMOVE-REFERENCES NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART
OPTIMIZE-PART COALESCE
) ) )
#Y(#:TOP-LEVEL-FORM-282 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
OPTIMIZE-ALL REMOVE-OLD-DEFINITIONS
#Y(OPTIMIZE-ALL
#613Y(00 00 00 00 00 01 D8 1A 80 5B 6A 01 AB 72 01 01 92 00 21 14 37 01
70 A0 94 00 92 00 0E AD AB DA 37 01 71 84 8D 03 04 DB DA 2F 04 AA
AE AE AE 2C 04 05 16 02 16 01 6A 01 AB 72 01 01 92 00 04 AB AB 2F
06 16 01 6A 01 AB 72 01 01 92 00 04 AB AB 2F 07 16 01 6A 01 AB 72
01 01 92 00 04 AB AB 2F 08 16 01 84 00 AA 6A 01 70 16 8E 03 FF 9C
16 01 2D 09 1B FF 91 D8 6A 01 70 16 1A 81 39 A3 FF 16 08 1A 81 32
B0 B0 6A 01 B0 32 01 01 5B 79 30 AE 6A 01 AA AF 62 32 01 02 16 01
A1 FE 16 08 00 2A 01 AB 37 01 70 A0 94 00 AA 70 51 6A 0A B0 32 01
01 0B 03 00 01 03 92 04 44 B0 6C 0B 01 AE 62 1A 80 D1 86 01 00 14
8E 0E 80 C7 AA B6 8D 03 80 C1 6A 01 AB 32 01 01 77 9B 5A 25 0C 80
B2 AB B1 A0 33 1C 80 AB 9C FC 16 01 1A 80 A6 9C FB 16 01 1A 80 9F
B2 9C 5B 1A 02 B2 9C 5B 5A 22 80 91 AB AF A0 33 1C 80 8A 9C FA 16
01 1A 80 85 E5 9C 5B 1A 10 6A 01 AC 72 01 01 93 00 B1 9C 5B 5A 21
6D E6 9C 5B 77 7A 02 B3 B3 AC A0 5B 7B 02 30 AE 6A 01 AA B0 62 32
01 02 16 01 A4 09 0B 16 0B 1A FF 5E E8 9D 5B 1A 23 6A 01 AD 72 01
01 93 00 9B 5B 77 E7 37 01 8D 84 09 9B 5B 5B 77 E7 37 01 31 84 14
B2 9D 5B 5A 21 5A E9 9D 5B 77 AC 7A 03 B4 B4 AC A1 5B 7B 02 30 AE
6A 01 AA B2 62 32 01 02 16 01 A5 09 0C 16 0C 1A FF 16 AB B0 A0 33
1B FF 5C 16 01 82 01 AB 8C 96 FF 2A 16 02 91 03 FE E6 91 01 FF 6F
91 02 FF 9F 16 09 1A 0C 6A 01 AB 72 01 01 91 00 FE EA 16 01 85 00
14 24 00 6E 16 01 6A 0A AA AC D8 32 01 02 16 01 EA EB 6A 01 6A 0A
72 01 26 EC AB 37 05 80 54 00 14 ED EE 37 02 80 68 00 62 AB 62 1A
80 75 86 01 00 77 93 00 9B 5A 25 17 80 4C AB F0 9D 5B 77 7A 02 30
AC 1A 80 40 F0 9C 5B 77 7A 02 E8 9D 5B 5B 77 9E 5B 77 E7 37 01 8D
84 09 9E 5B 5B 77 E7 37 01 31 84 14 60 03 1A 18 F0 9C 5B 5B 77 7A
02 E6 9D 1A 09 F0 9C 5B 77 7A 02 E5 9D 5B 5B 77 60 02 14 9E 5B 61
02 F7 16 01 AA 37 01 70 A0 9B 5B 1C 07 AA 94 01 7A 01 30 AE 16 01
AA AE 7F A6 03 16 01 82 01 AB 8C 96 FF 86 16 02 15 19 03
)
0. *CODE-PARTS* CODE-PART OPTIMIZE-ALL COMPILER-ERROR OPTIMIZE-LABEL
OPTIMIZE-JMPCASE OPTIMIZE-VALUE OPTIMIZE-SHORT COALESCE *CODE-POSITIONS*
#Y(OPTIMIZE-ALL-BETTER
#49Y(00 02 00 00 00 03 9C 58 1D 25 6A 01 AC 72 01 01 6A 01 AE 72 01 01
AB 68 00 01 8F 01 30 0A AB AB 68 00 01 32 02 31 19 05 AA AC 32 01
31 19 05 19 03
)
NIL *CODE-POSITIONS*
)
#S(HASH-TABLE EQ (JMPCASE1-FALSE . 28.) (JMPCASE1-TRUE . 23.)
(JMPCASE . 173.) (JMP . 2.)
)
JMPIFNOT1 JMPIF1 FOR-VALUE JMPIFNOT JMPIF LIST #.#'CONS #.#'CAR #.#'>
#.#'CDR
#S(HASH-TABLE EQ (JMPCASE1-FALSE . 59.) (JMPCASE1-TRUE . 48.)
(JMPCASE . 14.) (JMP . 2.)
)
JMP
) )
#Y(#:TOP-LEVEL-FORM-283 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE-TO-LAP REMOVE-OLD-DEFINITIONS
#Y(COMPILE-TO-LAP
#85Y(00 00 00 00 00 01 D8 63 37 06 C4 F8 70 1B D8 63 37 06 C4 F8 30 1B 10
02 9E 10 03 DC 60 01 10 05 C4 10 06 00 10 07 00 10 08 00 10 09 00 10
0A 6A 0B E4 AB E5 80 31 00 E6 AB E7 80 31 00 2E 10 12 06 2D 11 14 93
00 82 01 EA 8D 04 04 EB EC 2F 15 15 12 02 19 02
)
10. 0. *CODE-POSITIONS* *CODE-PARTS* (START) *CODE-PART* *CODE-INDEX*
*DEAD-CODE* *LABEL-SUBST* *CURRENT-VALUE* *CURRENT-VARS* *FUNC* FNODE 2.
ANODE 3. TRAVERSE-ANODE OPTIMIZE-ALL (START) COMPILE-TO-LAP START
COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-284 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CONST-TO-LOADV REMOVE-OLD-DEFINITIONS
#Y(CONST-TO-LOADV
#75Y(00 01 00 00 00 02 AB 92 00 3C 93 00 9B 1F 30 9B 5A 25 00 2B AB 93 01
9D 5B 77 71 97 9E 5B 5B 61 02 1A 13 AB D9 DA 9E 5B 77 60 03 1A 09 AB
C6 1A 05 AB DC 9D 5B 5C 14 30 AC 1A 04 DD DE 2F 07 16 01 82 00 91 00
44 16 01 9C 19 02
)
#S(HASH-TABLE EQ (GO . 40.) (TAGBODY-OPEN . 40.) (RETURN-FROM . 40.)
(BLOCK-OPEN . 40.) (CALL2 . 40.) (CALL1 . 40.) (CALL0 . 40.)
(CALL . 40.) (COPY-CLOSURE . 40.) (BIND . 40.) (SETVALUE . 40.)
(GETVALUE . 40.) (JMPHASH . 30.) (VENV . 26.) (CONST . 16.)
(STOREV . 1.) (LOADV . 1.)
)
LOADV 0. (LOADV 0. 0.) JMPHASHV CONST-TO-LOADV "Illegal-in-GF"
COMPILER-ERROR
) )
#Y(#:TOP-LEVEL-FORM-285
#70Y(00 00 00 00 00 01 00 2A 04 D8 6A 01 37 01 70 67 2E 02 0B 00 00 DB 6A 01
37 01 70 67 2E 02 0B 00 01 DC 6A 01 37 01 70 67 2E 02 0B 00 02 DD 6A 01
37 01 70 67 2E 02 0B 00 03 DE 2E 07 DE AB 6C 08 01 31 82 C9 19 02
)
1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS
REMOVE-OLD-DEFINITIONS
#Y(INSERT-COMBINED-LAPS
#985Y(00 01 00 00 00 02 AB 92 00 80 7C 93 00 9B 1F 80 6E 9B 5A 25 01 80
68 94 00 00 1A 80 5F C8 1A 21 AB 23 04 79 C9 1A 1A C9 1A 17 16 01
9C 5B 5A 5B 5B 5A 1B 38 AB 9D 5B 5A 77 23 02 64 AB 23 04 67 C8 14
9E 5B 5A 5B 77 7A 02 30 AC AB 9D 5B 5B 1A 2B 07 00 03 1A 22 86 00
00 9C 5B 5A 1F 0E 9C 5B 5A 77 AA 23 02 44 AA 23 03 40 16 01 AB DF
30 AC AB AB 23 04 5C 07 00 04 14 9E 5B 5C 14 30 AE 16 01 82 00 91
00 FF 84 16 01 AB 94 00 92 01 83 44 93 01 9B 1F 83 27 9C 5A 1F 80
49 93 00 9D 5A 5A 25 08 34 CC 1A 32 CD 1A 01 CE 14 9E 5A 5B 5B 5A
1C 02 82 00 93 03 94 00 62 30 AE 16 01 15 1A 18 CF 1A 15 D0 1A 12
D1 1A 0F AD AB 94 03 A0 5A 78 32 02 23 5C 1A 81 CF 00 14 E7 37 02
30 BE 78 91 00 67 16 01 9B 5A 25 10 82 D3 9E 1A 0D D6 1A 82 06 AB
AB 81 02 35 01 16 01 9D 5B F8 AC D4 73 91 00 6F 16 01 AD AB 23 12
64 D7 1A 81 E6 AC D4 73 91 00 57 16 02 1A 82 A7 AE EF 9D 1A 80 DB
AE F1 9D 1A 80 A1 9C 5B 77 9E 5B 77 EE 8D 04 6A 9E 5B 5A 1F 07 9E
5B 5A 77 23 18 64 AE F2 AC 7A 02 30 AC AE 9F 1A 80 BC 16 03 1A 82
74 03 1C 1A 0A AD 9E 5B 5A 77 23 02 74 03 1D 14 9E 5B 77 A0 5B 5A
5B 77 60 03 1A 80 C8 9C 5A 1F 82 51 9C 5A 77 AA 23 15 FF B0 AA 24
1B 1D 9D 5B 5A 1F 18 9D 5B 5A 77 AA 23 02 05 AA 24 03 FF BC 16 01
9D 5B 5A 5B 5B 5A 1C FF BA 16 02 1A 82 25 9C 5A 1F 82 1E 9B 5B 77
9D 5A 5A 25 1E 81 06 AE 03 20 1A 80 48 9D 5B 5A 1F 80 FA 9D 5B 5A
77 AA 23 1F 6C AA 24 18 0E AE 64 21 9E 14 A1 5B 5A 5B 77 60 03 1A
2D 16 03 1A 81 EB AE 03 22 1A 1E 9D 5B 5A 1F 80 D0 9D 5B 5A 77 AA
23 1F 6D AA 24 18 1F AB 9F 5B 5A 5B 77 8E 03 16 AE 03 23 14 9E 14
60 02 14 30 AC AE 9F 5B 78 30 AE 16 03 1A 81 B5 16 03 1A 81 B0 9D
5B 5A 1F 80 9A 9D 5B 5A 77 24 18 80 92 9D 5B 5A 5B 77 96 01 8E 03
80 87 AD 64 24 96 02 60 02 14 30 AC AD 9E 1A 2B 03 26 1A 1E AD 9E
5B 77 68 00 01 8D 04 72 03 27 1A 10 03 28 1A 0C AD 9E 5B 77 68 00
01 8D 04 72 03 29 14 AC 7A 02 30 AC AD 9E 5B 5B 5B 1A 80 96 9D 5B
5A 1F 35 9D 5B 77 68 00 01 8D 04 09 9D 5B 77 68 00 02 8E 04 23 9D
5B 5B 5A 1F 1D 9D 5B 5B 77 64 25 8D 04 FF AD 9D 5B 5B 5A 77 24 18
0B 9D 5B 5B 5A 5B 77 AB 8D 03 FF AC AD 64 2A AC 60 02 14 30 AC AD
9E 5B 1A 80 4D 16 02 1A 81 0B AC 64 2C 9D 5B 77 60 02 1A 80 C7 AC
64 2E 9D 5B 5B 77 7A 02 30 AC AC 9D 5B 1A 80 BD 93 01 64 2D 8D 04
68 AC 64 2F 9D 5B 1A 34 EA 1A 04 84 00 82 02 93 02 64 30 8D 04 75
AA 23 12 14 AD 03 31 14 AC 60 02 14 30 AC AD 9E 14 30 AE 16 02 1A
80 BB 16 02 1A 80 B6 AC 03 32 1A 08 AC 93 01 9D 5B 77 60 02 14 30
AC 16 01 1A 80 A1 29 2A 02 9C 5B 5B 5A 0B 00 00 9C 5B 5B 5B 5B 0B
00 01 AA 6C 33 01 67 01 00 30 6A 16 01 9B 5B 1A 21 9B 5B 5B 77 9C
5B 5B 5B 78 EA 92 01 11 93 01 AD 9D 5F 82 01 64 34 AB 81 02 35 00
91 01 6F 16 03 9B 5B 78 00 1A 28 9C 5A 1F 80 53 9C 5A 77 24 35 80
4C 9C 5B 77 64 36 8E 04 80 43 AC 64 37 9D 5B 77 9F 5A 5B 77 60 03
14 30 AC AC 9D 5B 5B 14 30 AE 16 01 1A 2B 93 01 64 2B 8E 04 22 9C
5B 5A 1F 1D 9C 5B 5A 77 24 18 16 9C 5B 5A 5B 77 9C 5B 77 8E 03 0B
9C 5B 5B 77 9C 5B 5B 5A 21 FE F7 16 01 93 00 64 38 8E 04 06 AB 82
01 14 30 AE 9B F7 5B F6 91 01 FC BC 16 02 9C 19 02
)
NIL #S(HASH-TABLE EQ (CONSP . 65.) (ATOM . 65.) (CONST . 2.)) JMPIF
JMPIFNOT ATOM JMPIFATOM JMPIFCONSP (PUSH)
#S(HASH-TABLE EQ (RET . 36.) (STOREC . 33.) (STORE . 30.) (JMPIFNOT . 7.)
(JMPIF . 4.) (PUSH . 1.)
)
((T . T&PUSH) (CONST . CONST&PUSH) (LOADI . LOADI&PUSH)
(LOADC . LOADC&PUSH) (LOADV . LOADV&PUSH) (GETVALUE . GETVALUE&PUSH)
(CALL . CALL&PUSH) (CALL1 . CALL1&PUSH) (CALL2 . CALL2&PUSH)
(CALLS1 . CALLS1&PUSH) (CALLS2 . CALLS2&PUSH) (CALLSR . CALLSR&PUSH)
(CALLC . CALLC&PUSH) (CALLCKEY . CALLCKEY&PUSH) (CAR . CAR&PUSH)
(CDR . CDR&PUSH) (CONS . CONS&PUSH) (LIST . LIST&PUSH)
(LIST* . LIST*&PUSH) (FUNCALL . FUNCALL&PUSH) (APPLY . APPLY&PUSH)
(COPY-CLOSURE . COPY-CLOSURE&PUSH) (HANDLER-BEGIN . HANDLER-BEGIN&PUSH)
)
((EQ . JMPIFEQ) (LOAD . LOAD&JMPIF) (CALL1 . CALL1&JMPIF)
(CALL2 . CALL2&JMPIF) (CALLS1 . CALLS1&JMPIF) (CALLS2 . CALLS2&JMPIF)
(CALLSR . CALLSR&JMPIF)
)
((EQ . JMPIFNOTEQ) (LOAD . LOAD&JMPIFNOT) (CALL1 . CALL1&JMPIFNOT)
(CALL2 . CALL2&JMPIFNOT) (CALLS1 . CALLS1&JMPIFNOT)
(CALLS2 . CALLS2&JMPIFNOT) (CALLSR . CALLSR&JMPIFNOT)
)
((NIL . NIL&STORE) (T . T&STORE) (POP . POP&STORE)
(CALLS1 . CALLS1&STORE) (CALLS2 . CALLS2&STORE) (CALLSR . CALLSR&STORE)
)
((LOAD . LOAD&STOREC)) ((SKIP . SKIP&RET)) #.#'EQ
#S(HASH-TABLE EQ (APPLY . 637.) (HANDLER-OPEN . 599.) (JMPHASHV . 566.)
(JMPHASH . 566.) (JMPIFNOT . 550.) (JMPIF . 550.)
(UNWIND-PROTECT-CLOSE . 545.) (UNBIND1 . 502.) (JSR . 488.)
(JMPIFBOUNDP . 684.) (LOAD . 178.) (CONST . 127.) (PUSH-NIL . 37.)
(NIL . 37.)
)
#Y(INSERT-COMBINED-LAPS-NILPUSHER-P
#49Y(00 01 00 00 00 02 93 01 31 06 1E 23 9C 5A 77 AA 23 00 0D 91 00 07
9D 5B 77 D9 8D 04 09 00 19 03 9D 5A 5B 5A 19 03 AC 9E 5B 78 30 AE
C5 19 03 19 02
)
PUSH-NIL (PUSH) 1.
)
1. (NIL&PUSH) PUSH-NIL SYMBOL-FUNCTION (PUSH) CONST&SYMBOL-FUNCTION&PUSH
STORE CONST&SYMBOL-FUNCTION&STORE CONST&SYMBOL-FUNCTION EQ JMPIFEQTO
JMPIFNOTEQTO
#S(HASH-TABLE EQ (PUSH . 191.) (CONS . 104.) (CDR . 50.) (CAR . 8.)) PUSH
LOAD&CAR&PUSH LOAD&CAR&STORE LOAD&CDR&PUSH LOAD&CDR&STORE LOAD&CONS&STORE
(PUSH) LOAD&INC&PUSH LOAD&DEC&PUSH LOAD&INC&STORE LOAD&DEC&STORE
LOAD&PUSH (NIL) UNBOUND->NIL (PUSH) JSR&PUSH JSR (UNBIND1) UNBIND
(UNWIND-PROTECT-CLOSE)
#Y(INSERT-COMBINED-LAPS-1
#22Y(00 02 00 00 00 03 68 00 01 AC 68 00 02 70 98 AE AC AC 30 68 19 05
)
NIL
)
2. SKIP (RET) APPLY&SKIP&RET (BARRIER)
) )
#Y(#:TOP-LEVEL-FORM-286 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
NUM-OPERAND-LENGTH REMOVE-OLD-DEFINITIONS
#Y(NUM-OPERAND-LENGTH
#27Y(00 01 00 00 00 02 AB D8 8F 01 2F 09 AB DA 8F 01 2F 06 C7 19 02 C4 19
02 C6 19 02
)
128. 1. 32768. 2. 6.
) )
#Y(#:TOP-LEVEL-FORM-287 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
#Y(ASSEMBLE-LAP
#904Y(00 01 00 00 00 02 AB D8 92 01 81 69 93 01 9B 1F 2F 93 00 6A 01 37
01 70 67 91 00 04 DA DB 2F 04 DD 9C 5E 5B 77 DE AB 24 07 11 9E 5B
77 E0 93 05 E1 37 06 31 60 5E 14 8F 01 2F 0C 9C 25 0C 81 1B AA AC
30 55 1A 81 26 E2 93 04 E1 37 06 31 60 5E 14 9F 5B 77 81 02 35 02
CE F7 93 03 60 01 F9 1A 80 F9 AA 9F 1A 80 5B 9B 1A 20 84 04 DE 9F
5B 5A 79 9F 1A 80 BB AA 9F 5B 77 6E 0D 32 02 35 1A 14 AA 9F 5B 77
6E 0D 81 02 35 00 14 80 97 00 1A 80 CA AA 31 97 F6 14 9F 5B 1A 28
AA 9F 5B 77 6E 0D 81 02 35 00 14 9F 5B 5B 77 6E 0D 32 02 35 1A 0D
AA 9F 5B 77 6E 0D 81 02 35 00 14 31 97 F6 14 9F 5B 5B 5B 77 6E 0D
81 02 35 00 1A 80 8E AA 9F 5B 77 6E 0D 81 02 35 00 84 04 C9 1A 05
84 00 84 04 C9 14 9F 5B 5B 5A 79 9F 5B 1A 80 44 AA 9F 5B 77 6E 0D
81 02 35 00 14 9F 5B 5B 77 6E 0D 81 02 35 00 84 04 C9 1A 20 AA 9F
5B 77 6E 0D 81 02 35 00 14 80 97 00 84 04 C9 1A 0D AA 9F 5B 77 6E
0D 81 02 35 00 84 04 C9 14 9F 5B 5B 5B 5A 79 9F 5B 5B 78 AB 30 AC
16 01 1A 23 AA 9F 5B 77 6E 0D 81 02 35 00 9E 5B 78 92 00 11 84 05
DE 9C 5A 79 AB AB 30 AC 16 01 82 00 91 00 6F 16 01 AE AB 81 02 35
04 AF AC AC AF A2 5B 7B 03 30 AC 16 03 16 01 82 01 91 01 FE 97 16
02 62 D8 AD 62 1A 80 9D AA AD 30 55 1A 80 94 86 01 00 1F 74 AC 9C
5B 77 81 02 35 02 9B 5A 25 0E 80 81 9B 5B 5B 78 9C 5A 25 0F 29 9B
1A 27 9B 5B 1A 23 9B 5B 5B 1A 1E AC EC 30 AC B1 31 97 1A 80 50 93
01 AA 23 06 70 16 01 1A 80 4E AC ED 30 AC 03 16 1A 38 00 14 62 AB
8B 96 80 45 86 01 00 AF 93 01 81 02 35 05 94 00 70 51 B0 72 01 36
E8 AB E9 8F 02 31 25 EA AB EB 8F 02 31 45 93 01 AA 23 06 4A AA 24
14 12 AC ED 30 AC 03 17 14 B2 32 02 35 FD 7D 08 16 01 1A 02 16 01
16 01 82 01 1A FF B6 16 03 82 01 AB 8C 96 FF 65 16 02 9C 16 02 1B
FF 4F 00 2A 02 00 0B 00 00 C3 0B 00 01 9B 2A 01 AB 2B 18 01 0B 00
00 AA 6C 19 01 AB 6C 1A 01 AF 62 1A 81 30 86 01 00 1F 81 28 67 05
01 9C 5B 77 32 02 35 0B 05 01 9B 5B 5B 77 06 05 00 33 9B 5A 25 1B
81 0E 9B 1A 80 54 9B 1A 15 9B 1A 80 B1 9B 5B 5B 5B 77 9F 1A 1C 9B
5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00 33 1A 80 E7 9B 5B 5B
5B 77 06 05 00 33 9B 5B 1A 24 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B
77 9F 1A 10 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00 33 9B
5B 5B 5B 5B 5B 77 9F 33 1A 80 AD 9B 5B 5B 5B 77 9F 1A 08 9B 5B 5B
5B 77 06 05 00 33 9B 5B 1A 80 45 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B
5B 77 9F 33 1A 31 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00
33 1A 1E 9B 5B 5B 5B 77 9F 33 9F 2A 01 9C 5B 5B 5B 5B 5A 0B 00 00
AA 6C 1C 01 67 01 00 30 6A 16 01 9B 5B 5B 5B 5B 5B 77 9E 33 1A 80
49 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 AA 71 48 DE 1A 0F AC 9C
5E 14 70 51 AD 9D 5F EC AB 81 02 35 00 AA AC 90 01 32 6B 16 03 1A
1D 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 78 62 1A 08 86 01 00 14 A0 33
82 01 AB 8C 96 74 16 02 82 01 AB 8C 96 FE CB 16 05 67 00 00 31 4A
19 03
)
0. INSTRUCTION-CODES ASSEMBLE-LAP "ILLEGAL INSTRUCTION" COMPILER-ERROR
#.INSTRUCTION-TABLE 1. K #.SHORT-CODE-OPSIZE #.INSTRUCTION-TABLE-K
#.SHORT-CODE-OPS O
#S(HASH-TABLE EQ (NLX . 250.) (NHL . 219.) (NBL . 200.) (NNL . 174.)
(BL . 158.) (NL . 143.) (NBN . 114.) (NNN . 92.) (BN . 83.) (NB . 66.)
(NN . 55.) (L . 44.) (B . 41.) (NC . 36.) (N . 36.) (K . 36.)
(O . 285.)
)
NUM-OPERAND-LENGTH
#S(HASH-TABLE EQ (NLX . 2.) (NHL . 2.) (NBL . 2.) (NNL . 2.) (BL . 2.)
(NL . 2.) (L . 2.)
)
#S(HASH-TABLE EQ (NHL . 8.) (NBL . 8.) (NNL . 8.) (NLX . 4.) (BL . 4.)
(NL . 4.) (L . 1.)
)
-64. 63. -16384. 16383. 2. 6. 5. 4.
#Y(ASSEMBLE-LAP-NEW-BYTE
#16Y(00 01 00 00 00 02 AB 07 00 01 5C 0C 00 01 19 02) NIL
)
#Y(ASSEMBLE-LAP-NUM-OPERAND
#56Y(00 01 00 00 00 02 AB D9 8F 01 2F 23 AB DA 90 01 2F 20 D9 DB DC 71
D5 AD 71 D8 72 02 35 07 00 01 33 DC DD 71 D5 AC 31 D8 14 07 00 01
33 19 02 9C 1A 76 DE DF 2F 08 19 02
)
NIL 128. 32768. 7. 8. 0. ASSEMBLE-LAP "15 BIT" COMPILER-ERROR
)
#Y(ASSEMBLE-LAP-LABEL-OPERAND
#117Y(00 01 00 00 00 02 68 01 02 93 02 32 02 35 0C 01 02 94 01 70 51
68 01 02 72 01 36 9D 5A 25 01 80 51 DA C6 1A 80 40 DC DA DD 71
D5 AC 71 D8 72 02 35 07 00 01 33 DD C6 1A 2D DC 07 00 01 33 DB
07 00 01 33 DD DE 71 D5 AB 71 D8 07 00 01 33 DD DF 71 D5 AB 71
D8 07 00 01 33 DD DD 71 D5 AB 71 D8 07 00 01 33 DD C6 14 71 D5
AB 71 D8 07 00 01 33 19 03 00 19 03
)
NIL #S(HASH-TABLE EQ (6. . 26.) (2. . 7.) (1. . 2.)) 7. 0. 128. 8. 24.
16.
)
#S(HASH-TABLE EQ (NLX . 243.) (NC . 199.) (NHL . 157.) (NBL . 138.)
(NNL . 121.) (BL . 107.) (NL . 99.) (NBN . 70.) (NNN . 54.) (BN . 41.)
(NB . 21.) (NN . 13.) (L . 9.) (B . 6.) (N . 2.) (K . 2.) (O . 272.)
)
#Y(ASSEMBLE-LAP-1
#25Y(00 02 00 00 00 03 68 00 01 AC 70 51 68 02 02 72 01 36 AE AC AC 30
68 19 05
)
NIL
) ) )
#Y(#:TOP-LEVEL-FORM-288 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DISASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-LAP
#440Y(00 02 00 00 00 03 00 2A 01 7E 03 00 00 9B 2A 02 62 C3 0B 01 00 62
00 0B 02 01 9D 2A 01 AD 2B 01 01 0B 00 00 9B 2A 01 AB 6C 02 01 AC
2B 03 01 0B 01 00 06 06 00 1C 81 47 06 05 00 F9 06 02 00 73 AA DC
8F 01 32 0D E0 9C 5E 14 93 00 9C 5B 5A 25 09 81 1B AA DD 63 37 05
C9 F7 71 60 AB DD 9D 5E 14 72 01 36 DF 9D 5E 14 9C 1A 1B AA 60 01
16 02 1A 80 FE AA 9F 33 1A 0E AA 06 06 00 33 1A 07 AA 37 02 06 07
00 33 14 60 02 16 02 1A 80 E3 AA 9F 1A 0C AA 9F 73 06 07 00 1A 26
AA 06 06 00 73 A0 1A 1E AA 9F 73 A0 1A 06 AA 9F 73 06 07 00 73 A1
1A 28 AA 9F 1A 04 AA 06 06 00 73 37 02 06 08 00 73 60 03 16 02 1A
80 A9 AA 9F 73 A0 1A 06 AA 9F 73 06 07 00 73 37 02 06 09 00 73 60
04 16 02 1A 80 8F AA B8 30 98 1A 0D 9F 2A 01 9F 73 AC 23 0A 71 93
0D 9C 5E 14 00 0B 02 00 AC 6C 0B 01 AB 30 6A AD AC 37 02 06 0B 00
73 06 05 00 61 03 16 05 1A 80 5E 9E 73 AA B7 30 98 77 AA 71 48 62
E4 1A 11 62 AE 9D 5E 14 06 0B 00 73 83 01 E5 AB 81 02 35 00 AA AD
90 01 32 69 16 01 AE AE AC 31 4A 61 02 16 06 1A 2C 9E 73 AA B7 70
98 71 48 62 D8 1A 0A 37 02 06 0A 00 73 83 01 84 00 AA AD 90 01 32
70 16 01 AD AD AC 31 4A 61 02 16 05 1A 03 00 16 02 F6 AE 9C 79 83
05 16 01 06 06 00 1B FE B9 16 03 62 92 00 2D 06 03 01 1C 28 9B 5A
77 06 04 01 5A 77 90 01 2D 1C 06 03 01 77 83 00 06 03 01 5B 0B 03
01 92 02 0F 94 02 AD AC 7F AD 01 69 02 91 00 53 91 02 71 15 19 07
)
0.
#Y(DISASSEMBLE-LAP-NEXT-BYTE
#28Y(00 00 00 00 00 01 68 00 01 31 97 0C 00 01 07 01 01 77 07 01 01 5B
0C 01 01 15 19 01
)
NIL
)
#Y(DISASSEMBLE-LAP-NUM-OPERAND
#37Y(00 00 00 00 00 01 07 00 01 73 AA D9 8F 01 2F 12 DA DB AC 72 02 35
72 02 37 07 00 01 73 32 02 35 19 02 15 19 01
)
NIL 128. 256. -128.
)
#Y(DISASSEMBLE-LAP-LABEL-OPERAND
#177Y(00 00 00 02 00 0C 3A 02 80 6D 07 00 01 73 AA D9 8F 01 2F 80 4E
DB AB 81 02 35 00 14 DA 8F 01 2F 06 DB AB 81 02 35 00 DC AB 72
02 37 07 00 01 73 81 02 35 00 14 8E 92 3B DC DC DC 07 00 01 73
72 02 37 07 00 01 73 72 02 35 72 02 37 07 00 01 73 72 02 35 72
02 37 07 00 01 33 14 32 02 35 1A 14 9B 1A 11 AA DA 8F 01 2F 77
DB 9C 1A 6D 14 AB 30 AE 1A 39 9B 16 01 F8 3A 01 08 68 01 01 AD
81 02 35 01 62 68 01 02 92 00 17 AD 9C 5A 77 8F 01 30 0F AD 9C
5A 77 8F 01 2D 13 9B F7 5B F6 91 00 69 AD C8 73 83 00 91 01 45
9B 0C 01 02 9B 5A 5B 19 05
)
NIL 128. 64. -128. 256.
#Y(DISASSEMBLE-LAP-PC->LABEL-A
#19Y(00 01 00 00 00 02 AB D8 AD 70 8A 72 02 13 30 CE 5C 19 02) "L"
) )
#.SHORT-CODE-BASE #.SHORT-CODE-OPS #.#'>= #.INSTRUCTION-TABLE-K
#.INSTRUCTION-TABLE
#S(HASH-TABLE EQ (NLX . 244.) (NC . 194.) (NHL . 151.) (NBL . 125.)
(NNL . 119.) (BL . 101.) (NL . 97.) (NBN . 87.) (NNN . 81.) (BN . 73.)
(NB . 65.) (NN . 61.) (L . 46.) (B . 39.) (N . 34.) (K . 34.)
(O . 26.)
)
JMPHASH
#Y(DISASSEMBLE-LAP-1
#22Y(00 02 00 00 00 03 AB 37 01 07 01 01 73 07 00 01 5C 0C 00 01 19 03
)
NIL
)
1. 2.
) )
#Y(#:TOP-LEVEL-FORM-289 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CREATE-FUN-OBJ REMOVE-OLD-DEFINITIONS
#Y(CREATE-FUN-OBJ
#371Y(00 02 00 00 00 03 D8 D9 AE DA 71 31 DB C7 44 D9 B1 DD 71 31 DE 31
B4 40 D9 66 00 05 DF 71 31 DE 31 B4 40 D9 66 00 05 E0 8D 31 80 78
CC 14 D9 66 00 05 E2 8D 31 80 71 CC 14 D9 66 00 05 E4 8D 31 80 6D
CC 14 32 03 35 40 D9 66 00 05 DD 71 31 D9 66 00 05 DF 71 31 D9 66
00 05 E0 71 31 D9 66 00 05 E4 71 31 91 01 0E 91 00 0B AD AD 72 02
35 E8 8F 01 2F 80 4B 92 01 0D 91 00 0A AC 8E 92 06 AD EA 8F 01 2F
3E 91 01 80 9E 92 00 80 9A AD AD 72 02 35 EA 90 01 2F 80 8F D7 14
9E 5E 14 AE 32 02 35 1A 80 84 C5 1A FF 85 CE 1A FF 8C D2 1A 0A E5
D9 66 00 05 E6 8D 31 74 CC 14 32 02 35 1A FF 83 D4 1A 56 D6 1A 56
03 15 44 D9 66 01 05 EE 71 31 71 48 DE 31 B4 40 D9 66 01 05 EF 71
31 DE 31 B4 40 45 1A 80 50 62 D9 B6 F2 71 31 D9 B7 F3 71 31 1A 1D
14 31 3B 1A 0F 16 03 1A 19 93 01 9C 1F 77 93 01 91 00 6D 9C 14 83
04 16 02 82 01 82 00 9C 20 69 16 02 AA 30 A7 16 01 1A 3A AB AB F4
71 2D 7A 01 32 02 23 1A 3A CC 16 03 F6 D9 66 00 05 E4 8D 31 FF 92
3D 40 66 00 04 45 14 F0 D9 B2 EF 71 31 37 01 70 A1 AA D9 B4 EE 71
31 0E 19 1B FF 95 D9 B5 F2 31 31 14 72 03 23 D9 B4 E2 8D 31 FF BB
9B 16 01 F6 6D 06 1D D9 AE 64 1E AD 31 32 16 01 9D 19 03
)
:NAME FNODE 1. :CODEVEC #.#'LIST* 10. 256. 11. 12. 0. 20. 16. 13. 128.
15. 64. 6. #(1. 7. 12. 16. 19. 21.) 5. 22. #(27. 32. 36. 39. 41.)
#.#'VALUES 14. 9. :CONSTS *COMPILING-FROM-FILE* 17. 18. SIMPLE-VECTOR
MAKE-CLOSURE 2.
) )
#Y(#:TOP-LEVEL-FORM-290 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SIGNATURE REMOVE-OLD-DEFINITIONS
#Y(SIGNATURE
#131Y(00 01 00 00 00 02 AB 71 38 AC 71 37 D8 93 01 82 02 72 02 37 93 01
82 02 72 02 35 D8 93 02 82 03 72 02 37 93 02 82 03 72 02 35 93 02
82 03 D9 AB 71 D1 82 04 AD AD DA AE 71 D1 AD 91 04 13 00 14 DD B1
71 D1 B4 B6 3F 08 19 08 93 0B DC 31 2D 1A 24 D8 93 09 82 0A 72 02
37 93 09 82 0A 72 02 35 D8 93 0A 82 0B 72 02 37 93 0A 82 0B 72 02
35 DB B2 8D D1 56 A6 14 AB AC AE 72 02 35 31 46 16 02 1A FF BC
)
256. 7. 0. 4. LIST 6.
) )
#Y(#:TOP-LEVEL-FORM-291 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PASS3 REMOVE-OLD-DEFINITIONS
#Y(PASS3
#57Y(00 00 00 00 00 01 6A 00 62 1A 27 86 01 00 77 D9 AB DA 80 31 00 9C 5B
77 AB DA AC 72 02 35 AD DA AE 72 02 35 71 2E D9 AB DA 80 31 00 31 2F
16 02 82 01 AB 8C 96 55 00 19 03
)
*FNODE-FIXUP-TABLE* FNODE 2.
) )
#Y(#:TOP-LEVEL-FORM-292 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE-LAMBDABODY REMOVE-OLD-DEFINITIONS
#Y(COMPILE-LAMBDABODY
#33Y(00 02 00 00 00 03 AC AC 6F 00 0E 01 1B 10 00 10 02 AD 2E 03 2D 04 11
DD AB DE 31 31 19 04 00 19 04
)
C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
) )
#Y(#:TOP-LEVEL-FORM-293 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(COMPILE-LAMBDA
#85Y(00 07 00 00 00 00 02 10 00 00 10 01 00 10 02 0E 03 10 04 00 10 05 00
10 06 00 10 07 04 19 10 08 04 1B 10 09 04 1D 10 0A 04 23 10 0B 00 10
0C 04 25 10 0D D1 10 0F D1 10 10 00 10 11 65 37 65 37 6F 12 6A 0F 8E
92 05 15 12 10 19 08 65 38 EB 2F 12 16 01 1A 73
)
*COMPILING* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *ERROR-OUTPUT*
*C-ERROR-OUTPUT* *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC*
*FENV* *BENV* *GENV* *VENV* *VENVC* *DENV* 0. *ERROR-COUNT*
*WARNING-COUNT* *NO-CODE* COMPILE-LAMBDABODY (NIL NIL)
) )
#Y(#:TOP-LEVEL-FORM-294
#26Y(00 00 00 00 00 01 00 2A 01 C3 0B 00 00 D9 2E 02 D9 AB 6C 03 01 31 82 C4
19 02
)
0. COMPILE-FORM REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FORM
#32Y(00 06 00 00 00 00 D9 68 00 01 31 97 0C 00 01 14 6F 02 62 B2 7A 02 B1
B1 B1 B1 B1 2C 07 03 19 07
)
NIL #:COMPILED-FORM SYMBOL-SUFFIX COMPILE-LAMBDA
) )
#Y(#:TOP-LEVEL-FORM-295 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE REMOVE-OLD-DEFINITIONS
#Y(COMPILE
#452Y(00 01 00 01 00 08 3B 01 14 3C 02 01 03 B0 88 00 80 4F B0 6E 06 92
04 80 8E 92 07 0E AA DF 37 01 80 84 04 1C 05 9F 20 3F 7D 02 B0 8D
0B 80 51 92 07 12 E9 EA EB B4 7A 02 7A 02 EB B3 7A 02 7A 03 0E 14
5C F7 A1 1F 06 93 06 23 1E 80 EB B0 8D 0C 80 E6 D9 64 1F 64 20 03
21 14 6D 03 05 B2 32 01 1F D9 DA DB C7 1A 72 E0 E1 E2 6D 03 05 E3
B3 2C 03 0C B1 2E 0D 1A FF B2 AA DF B2 31 88 1A 80 51 E6 E7 E8 6D
03 05 B1 2F 0C 92 07 80 44 91 02 68 AA B1 31 82 1A 3B ED EE B3 EF
F0 F1 6D 03 05 B5 32 03 1F 7D 02 1A 10 AA 8C 53 6B AA DF 37 01 80
84 06 1B 6F 9B 5D FC A1 1F 09 93 06 24 1A 04 7D 03 82 06 B0 8E 0B
FF 7C F3 F4 F5 6D 03 05 B2 2F 0C A2 19 08 B9 64 24 31 2E 1A 80 6D
BA 64 25 31 2E 1A 80 6C BB 64 26 31 2E 1A 80 6B BC 64 27 31 2E 1A
80 6A BE 64 28 31 2E 1A 80 6B 65 44 64 3A 31 2E 1A 80 A8 00 1A 80
B5 F2 83 00 92 42 1C 65 40 DF AC 31 88 92 41 1B 65 40 64 3C 65 43
31 88 04 47 1A 80 99 91 43 61 91 42 64 65 40 AB 31 82 91 41 65 04
47 1A 80 86 63 64 22 64 22 01 02 6A 23 01 03 B9 8D 0C FF 8C 00 14
BA 8D 0C FF 8D 00 14 BB 8D 0C FF 8E 00 14 BC 8D 0C FF 8F 00 14 62
BE 8D 0C FF 8F 0E 29 10 2A 00 10 2B 04 13 10 2C 04 15 10 2D 04 17
10 2E 04 19 10 2F 04 1B 10 30 04 1D 10 31 04 1F 10 32 04 21 10 33
04 23 10 34 04 25 10 35 04 27 10 36 04 29 10 37 04 2B 10 38 04 2D
10 39 65 44 8D 0C FF 52 04 44 5B 14 65 46 AB 6F 3B 6A 2D 8E 92 FF
4C 91 47 FF 68 9B 16 02 12 10 19 16
)
FUNCTION-NAME-P ERROR
"Name of function to be compiled must be a symbol, not ~S"
"Name einer zu compilierenden Funktion muß ein Symbol sein, nicht: ~S"
"Le nom d'une fonction à compiler doit être un symbole et non ~S"
LANGUAGE GET-FUNNAME-SYMBOL TRACED-DEFINITION
"~S: redefining ~S; it was traced!"
"~S: ~S war getraced und wird umdefiniert!"
"~S: ~S est redéfinie, alors qu'elle était tracée!" COMPILE WARN UNTRACE2
"~S is already compiled." "~S ist schon compiliert."
"~S est déjà compilée." SETF FDEFINITION QUOTE *TOPLEVEL-ENVIRONMENT*
UNDEFINED-FUNCTION :NAME "Undefined function ~S"
"Funktion ~S ist undefiniert." "Fonction non définie ~S." MACRO
"~S is already compiled." "~S ist schon compiliert."
"~S est déjà compilée." LAMBDA
"Not a lambda expression nor a function: ~S"
"Das ist weder ein Lambda-Ausdruck noch ein funktionales Objekt:~%~S"
"Ni expression lambda ni fonction : ~S" 0. *ERROR-OUTPUT* 5. 6. 7. 4. 8.
*TOPLEVEL-DENV* *DENV* *NO-CODE* *COMPILING* *ERROR-COUNT*
*WARNING-COUNT* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *C-ERROR-OUTPUT*
*KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC* *FENV* *BENV* *GENV*
*VENV* *VENVC* 1. COMPILE-LAMBDABODY DEFINITION
) )
#Y(#:TOP-LEVEL-FORM-296 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *TOPLEVEL-FOR-VALUE*) *TOPLEVEL-FOR-VALUE*
)
#Y(#:TOP-LEVEL-FORM-297 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE-TOPLEVEL-FORM REMOVE-OLD-DEFINITIONS
#Y(COMPILE-TOPLEVEL-FORM
#310Y(00 01 00 01 00 08 3A 01 02 0E 00 10 00 C4 4F 81 22 A3 1F 80 EE 93
08 AA 8E 08 80 AF AA 2E 04 41 03 92 02 3A AC 24 0F 80 98 B6 6A 02
6A 0E 72 02 00 70 5C 37 01 27 4F 16 07 18 0F 1A 80 F5 AA 37 01 27
43 16 05 18 0F 1A 80 E9 B2 6A 02 2F 03 41 02 91 01 6A 16 02 0E 09
1C 80 B1 1A 80 B2 9E 25 05 80 59 00 1A 0F B6 DE 2F 07 94 0C 92 00
74 9B 5B 1B 0C 9B 5A 14 37 01 27 FF 8B 16 01 1A 35 E0 AB 92 00 1D
93 00 82 01 0E 09 1C 02 9C 58 10 09 AD 6A 00 84 07 14 6F 0A 27 FF
6B 11 16 01 91 00 63 16 03 1A 0F A7 10 0B B0 6A 0C 37 01 70 67 98
0D 35 01 11 00 16 07 18 0F 1A 80 77 AD 8B 5A FF 68 16 04 0E 09 1C
80 44 1A 80 45 16 01 0E 09 1C 3B 1A 3D 00 16 03 18 0F 1A 80 58 00
1A 3E B5 6A 14 2F 15 0E 16 1C 80 44 14 30 8F B5 37 0C 7D 02 F6 6A
16 30 84 0E 11 1C 37 EF 6A 11 31 4A 79 2E 18 1A 2E B2 8D 08 FF 42
0E 09 1B 04 B2 87 10 43 00 10 11 6A 00 62 B7 0E 09 1B 40 D5 7B 02
2F 13 09 0B 0E 14 1B FF B7 0E 16 1B FF BC 0E 11 1B 49 00 11 50 11
19 03
)
*TOPLEVEL-NAME* C-ERROR *VENV* VENV-SEARCH-MACRO FENV-SEARCH
#S(HASH-TABLE EQ (SYMBOL-MACROLET . 68.) (MACROLET . 68.)
(COMPILER-LET . 68.) (EVAL-WHEN . 68.) (LOCALLY . 68.) (PROGN . 5.)
)
1. TEST-LIST 0. *TOPLEVEL-FOR-VALUE* SYMBOL-SUFFIX *FORM* C-FORM-TABLE
COMPILE-TOPLEVEL-FORM *FENV* MACRO C-CONSTANTP *PACKAGE-TASKS* ((VALUES))
COMPILE-LAMBDABODY *C-LISTING-OUTPUT* DISASSEMBLE-CLOSURES
*FASOUTPUT-STREAM* PROGN C-EVAL-WHEN-COMPILE
) )
#Y(#:TOP-LEVEL-FORM-298 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PREPARE-COUTPUT-FILE REMOVE-OLD-DEFINITIONS
#Y(PREPARE-COUTPUT-FILE
#37Y(00 00 00 00 00 01 0E 00 1C 18 0E 01 1C 14 0E 02 1B 0D 6A 01 DB 37 03
30 FB 0F 02 14 DC 2F 05 02 19 01 00 19 01
)
*COMPILING-FROM-FILE* *COUTPUT-FILE* *COUTPUT-STREAM* :OUTPUT
#Y(PREPARE-COUTPUT-FILE-1
#15Y(00 01 00 00 01 17 D8 AD 37 02 30 8D 9C 19 03)
"#include \"clisp.h\"
"
)
FORMAT
) )
#Y(#:TOP-LEVEL-FORM-299 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FINALIZE-COUTPUT-FILE REMOVE-OLD-DEFINITIONS
#Y(FINALIZE-COUTPUT-FILE #9Y(00 00 00 00 00 01 00 19 01))
)
#Y(#:TOP-LEVEL-FORM-300 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE-FILE REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FILE
#866Y(00 01 00 00 80 1C 00 05 00 00 3A 05 02 7D 05 3C 04 3A 03 02 0E 05
10 05 3A 05 02 0E 06 10 06 3A 07 02 0E 07 10 07 01 02 00 10 08 01
02 C0 6A 09 2F 0A 5A 1B 0A C0 E3 37 03 70 F3 37 02 30 F3 09 16 92
15 05 14 8E 18 81 0D 92 14 12 14 8D 18 0E BE 02 21 81 24 BE 37 03
30 F3 09 14 7D 00 C0 E8 37 03 70 FB 52 82 E8 D4 44 91 04 81 15 C2
8D 18 81 19 00 14 52 82 B5 65 1D 65 1E 70 F7 01 02 91 0C 81 0D 65
20 8D 18 81 11 00 14 91 0D 81 10 00 10 13 00 10 14 00 10 15 62 A9
10 16 04 10 10 17 04 12 10 18 04 14 10 19 04 16 10 1A 52 82 36 91
22 80 F5 0E 22 1B 19 00 0F 23 0F 24 0F 25 0F 26 0F 27 0F 28 0F 29
0F 2A 0F 2B 0F 2C 0F 2D 7D 2D 63 63 6A 2E 6A 2F 65 26 91 27 80 EB
0E 30 10 31 00 10 32 00 10 33 00 10 34 00 10 35 00 10 36 00 10 37
0E 38 10 39 03 3A 10 3B 03 3A 10 3C 0E 1A 58 1C 03 04 45 58 10 3D
02 10 3E 64 3A 04 29 10 22 04 2B 10 3F 04 2D 10 2E 04 2F 10 2F 04
31 10 40 64 41 64 42 64 43 6D 03 1E 65 77 2F 44 0E 1A 1C 80 E3 0E
45 10 2E 64 46 64 47 2D 46 14 7A 02 7A 02 37 0C 7D 00 6A 1A 30 84
11 1A 80 C8 E4 C1 37 02 30 F3 1A 09 BF 02 21 74 BF 37 03 30 F3 09
15 E5 C0 37 02 7F F3 05 E6 C0 37 02 30 F3 0F 08 7D 01 92 14 FE E8
1A FE D3 E7 C1 37 02 30 F3 1A FE D8 C2 EA 37 03 30 FB 1A FE E8 04
18 1A FE E3 65 20 EA 37 03 30 FB 1A FE F0 04 20 1A FE EB BB EA 37
03 30 FB 1A FE E8 14 F3 F4 F5 6D 03 1E 65 3F 2D 1F 14 2D 20 42 14
70 C4 70 C5 2C 07 21 0E 22 1C FE F3 1A FF 09 6A 30 65 28 32 02 2B
1A FF 0D 64 64 64 65 64 66 6D 03 1E AC 71 4A 2F 44 92 00 80 CE 64
67 64 68 64 69 6D 03 1E AB 71 4A 2F 44 16 02 1A 80 BD 0E 07 1C 10
63 64 4A AC 64 4B 6A 4C 72 02 35 6F 4D 2C 03 21 AA 64 4E 84 12 14
6F 4F 2F 50 16 01 63 65 60 62 64 48 37 01 30 7E 65 5F 2E 49 0F 18
65 5F 62 64 48 37 01 70 78 65 60 2E 49 0F 19 AA 64 48 8E 03 FF BA
16 01 2D 51 64 52 64 53 64 54 6D 03 1E 65 77 2F 44 64 55 64 56 64
57 6D 03 1E 6A 3B 6A 3C 62 6A 3C 03 58 59 14 62 6D 03 1E 2C 04 44
92 66 80 47 0E 23 1C 0F 64 59 64 5A 64 5B 6D 03 1E 6A 23 71 4A 2F
44 6A 28 6A 27 64 5C 64 5D 2C 04 5E 0F 28 1C 0F 64 5F 64 60 64 61
6D 03 1E 6A 28 71 4A 2F 44 6A 25 6A 24 6F 62 6A 25 6A 24 6F 63 91
01 FF 24 91 00 FF 32 16 02 64 6A 2E 44 6A 3B 80 92 4A 12 05 16 01
12 0C 16 05 53 05 00 26 1C 80 50 1A 1D 14 37 01 31 7D 05 00 0F 1C
31 1A 80 41 6A 08 30 F9 05 00 0F 1C 25 1A 36 05 00 26 1C 31 6A 1A
30 8F 6A 1A 37 01 31 7D 6A 13 37 01 31 7D 0E 14 1B 4F 6A 08 8B F8
57 05 00 0F 1B 13 66 00 3A 30 F9 66 00 2A 30 F9 6A 08 8C F8 04 6A
08 30 F9 54 12 05 16 01 12 03 16 05 53 05 00 05 1C 0E 1A 05 05 00
05 1C 07 66 00 00 37 01 31 7D 54 16 01 40 05 00 02 1C 05 14 37 01
31 7D 45 53 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 63 31 7D 54 16
03 11 16 02 12 03 19 07
)
:OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *COMPILE-WARNINGS*
*COMPILE-VERBOSE* *COMPILE-PRINT* *COUTPUT-FILE* *SOURCE-FILE-TYPES*
SEARCH-FILE
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "lsp" :VERSION NIL
)
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "fas" :VERSION NIL
)
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "lib" :VERSION NIL
)
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "c" :VERSION NIL
)
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "lis" :VERSION NIL
)
:INPUT-IMMUTABLE #.#'VALUES :OUTPUT *LIBOUTPUT-STREAM* *COUTPUT-STREAM*
*FFI-MODULE* *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME*
*COMPILE-FILE-LINENO1* *COMPILE-FILE-LINENO2* *FASOUTPUT-STREAM*
"~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A"
"~&Listing der Compilation von Datei ~A~%am ~@? durch ~A in der Version ~A"
"~&Listage de la compilation du fichier ~A~%le ~@? par ~A, version ~A"
LANGUAGE DATE-FORMAT GET-DECODED-TIME FORMAT *COMPILING*
*FUNCTIONS-WITH-ERRORS* *KNOWN-SPECIAL-VARS* *UNKNOWN-FREE-VARS*
*CONSTANT-SPECIAL-VARS* *KNOWN-FUNCTIONS* *UNKNOWN-FUNCTIONS*
*INLINE-FUNCTIONS* *NOTINLINE-FUNCTIONS* *INLINE-DEFINITIONS*
*USER-DECLARATION-TYPES* *COMPILED-MODULES* *PACKAGE* *READTABLE*
*ERROR-OUTPUT* *C-ERROR-OUTPUT* *FUNC* *FENV* *BENV* *GENV* *VENV*
*VENVC* *TOPLEVEL-DENV* *DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE*
*TOPLEVEL-FOR-VALUE* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT*
"~%Compiling file ~A ..." "~%Datei ~A wird compiliert..."
"~%Compilation du fichier ~A..." C-COMMENT *KEYWORD-PACKAGE* VERSION
QUOTE "EOF" LINE-NUMBER
#Y(LISP::COMPILE-FILE-1
#19Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AC AE 30 88 9C 19 04)
"
; "
)
-2. *PRIN-LINELENGTH* WRITE-TO-SHORT-STRING #:TOP-LEVEL-FORM
SYMBOL-SUFFIX COMPILE-TOPLEVEL-FORM FINALIZE-COUTPUT-FILE
"~&~%Compilation of file ~A is finished."
"~&~%Compilation von Datei ~A beendet."
"~&~%Compilation du fichier ~A terminée." "~%~D error~:P, ~D warning~:P"
"~%~D Error~:P, ~D Warnung~:[en~;~]"
"~%~D erreur~:P, ~D avertissement~:P" 1.
"~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}"
"~%Es gab Errors in den folgenden Funktionen:~%~{~<~%~:; ~S~>~^~}"
"~%Il y a des erreurs dans les fonctions :~%~{~<~%~:; ~S~>~^~}" :TEST
#.#'EQUAL NSET-DIFFERENCE
"~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
"~%Folgende Funktionen wurden verwendet, aber nicht definiert:~%~{~<~%~:; ~S~>~^~}"
"~%Les fonctions suivantes sont utilisées mais non définies :~%~{~<~%~:; ~S~>~^~}"
SET-DIFFERENCE INTERSECTION
"~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
"~%Folgende Special-Variablen wurden nicht definiert:~%~{~<~%~:; ~S~>~^~}"
"~%Les variables utilisées comme SPECIAL ne sont pas définies :~%~{~<~%~:; ~S~>~^~}"
"~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}"
"~%Folgende Special-Variablen wurden zu spät definiert:~%~{~<~%~:; ~S~>~^~}"
"~%Les variables déclarées SPECIAL sont définies trop tard :~%~{~<~%~:; ~S~>~^~}"
"~%"
) )
#Y(#:TOP-LEVEL-FORM-301 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPILE-FILE-PATHNAME REMOVE-OLD-DEFINITIONS
#Y(COMPILE-FILE-PATHNAME
#60Y(00 01 00 00 80 1C 00 05 00 00 3A 05 02 7D 05 B0 6A 05 2F 06 5A 1B 0A
B0 DF 37 03 70 F3 37 02 30 F3 FC 92 05 0E 14 8D 18 0A AF 02 21 09 AF
37 03 7F F3 05 A0 19 07 E0 B1 37 02 1A 74
)
:OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *SOURCE-FILE-TYPES*
SEARCH-FILE
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "lsp" :VERSION NIL
)
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "fas" :VERSION NIL
) ) )
#Y(#:TOP-LEVEL-FORM-302 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DISASSEMBLE-CLOSURES REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-CLOSURES
#46Y(00 02 00 00 00 03 00 2A 01 00 0B 00 00 AA 6C 00 01 AE 9C 33 16 01 67
00 00 71 4A 62 1A 09 86 01 00 14 AF 2F 01 82 01 AB 8C 96 73 00 19 06
)
#Y(DISASSEMBLE-CLOSURES-MARK
#52Y(00 01 00 00 00 02 AB 07 00 01 5C 0C 00 01 AB 71 38 62 1A 19 86 01
00 14 8E 0C 10 AA 8E 0B 0C AA 68 00 01 37 03 8B B7 03 AA 27 5B 82
01 AB 8C 96 63 00 19 04
)
NIL
)
DISASSEMBLE-CLOSURE
) )
#Y(#:TOP-LEVEL-FORM-303 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMMENT-VALUES REMOVE-OLD-DEFINITIONS
#Y(COMMENT-VALUES
#78Y(00 02 00 00 00 03 9D 20 03 00 19 03 9D 5A 25 00 78 63 9E 5B 77 70 00
C4 1A 2F 63 DA 9F 5B 77 72 02 35 70 00 C4 1A 22 63 6A 03 9F 5B 5B 77
72 02 35 70 00 C7 1A 13 DD 9E 5B 5B 77 AD 70 98 C7 1A 08 DD 9E 5B 77
AD 70 98 C4 14 3F 03 19 03
)
#S(HASH-TABLE EQ (HANDLER-OPEN . 49.) (TAGBODY-OPEN . 49.)
(CONST&SYMBOL-FUNCTION&STORE . 49.) (COPY-CLOSURE . 49.)
(COPY-CLOSURE&PUSH . 49.) (CONST&SYMBOL-FUNCTION . 49.)
(CONST&SYMBOL-FUNCTION&PUSH . 49.) (CONST&STORE . 49.) (BIND . 49.)
(GETVALUE&PUSH . 49.) (GETVALUE . 49.) (SETVALUE . 49.)
(CONST&PUSH . 49.) (CONST . 49.) (JMPIFNOTEQTO . 49.)
(JMPIFEQTO . 49.) (CALL2&JMPIF . 49.) (CALL2&JMPIFNOT . 49.)
(CALL2&PUSH . 49.) (CALL2 . 49.) (CALL1&JMPIF . 49.)
(CALL1&JMPIFNOT . 49.) (CALL1&PUSH . 49.) (CALL1 . 49.) (CALL0 . 49.)
(CALL&PUSH . 38.) (CALL . 38.) (CALLSR&JMPIF . 23.)
(CALLSR&JMPIFNOT . 23.) (CALLSR&STORE . 23.) (CALLSR&PUSH . 23.)
(CALLSR . 23.) (CALLS2&JMPIF . 10.) (CALLS2&JMPIFNOT . 10.)
(CALLS2&STORE . 10.) (CALLS2&PUSH . 10.) (CALLS2 . 10.)
(CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.)
(CALLS1&PUSH . 1.) (CALLS1 . 1.)
)
1. 256. FUNTABR-INDEX 2. STRING
) )
#Y(#:TOP-LEVEL-FORM-304 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DISASSEMBLE-CLOSURE REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE-CLOSURE
#451Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AB 30 8F AB 30 8F D9 DA DB 6D
03 04 AC 37 02 30 8D AC 71 36 AC 30 85 AC 2E 05 41 08 AA DE 92 01
1F B5 30 8F DF B6 37 02 30 8D AA B6 30 85 E0 B6 37 02 30 8D 93 01
B6 30 85 82 01 84 00 91 01 61 16 02 B3 30 8F B1 B4 30 85 E1 E2 E3
6D 03 04 B4 37 02 30 8D B3 30 8F B0 B4 30 85 E4 E5 E6 6D 03 04 B4
37 02 30 8D B3 30 8F 91 05 25 EA EB D7 14 6D 03 04 B4 37 02 30 8D
91 04 1B B3 30 8F 64 26 64 27 64 28 6D 03 04 B4 37 02 30 8D 62 AB
1A 80 9D E7 E8 D4 1A 59 AD 71 48 B4 30 8F AA B5 30 85 ED EE EF 2C
03 04 25 18 3E 03 19 1A 34 F4 B5 37 02 30 8D 03 1D 1A 2A F2 B5 37
02 30 8D AA 24 1B 6C 03 1D 1A 1C 64 1F B5 37 02 30 8D 03 20 1A 11
03 21 1A 25 64 1E B5 37 02 30 8D AA 24 1B 66 03 20 14 B5 37 02 30
8D AE AA 8B 96 2B 93 00 82 01 B6 30 85 AA 8B 96 59 03 22 14 B6 37
02 30 8D 1A 67 B4 30 8F 64 23 64 24 64 25 6D 03 04 B5 37 02 30 8D
16 01 1A FF 75 16 01 91 03 65 16 01 1A FF 6B 93 00 AA 64 29 6F 2A
83 02 16 01 82 00 9B 20 70 16 01 AA 7F A7 00 AC AC 6F 2B 92 00 80
71 9B 5A 77 9C 5A 78 B7 30 8F AB B8 30 85 DE 64 2C B9 70 94 72 01
36 1A 07 64 2D BA 30 8C 84 01 AB AB 90 01 32 73 16 02 AA B8 30 88
AA AE 2F 2E 41 02 92 01 35 DE F3 64 2F BC 70 94 72 01 36 72 01 33
1A 0F AA BA 37 02 30 8D 1A 1E 64 2D BC 30 8C 84 01 AB AB 90 01 32
73 16 02 64 30 BA 37 02 30 8D AB 23 31 5E AA BA 30 85 16 04 82 00
91 00 FF 8F 16 02 B3 30 8F 19 0B
)
*STANDARD-OUTPUT* "Disassembly of function " "Disassembly von Funktion "
"Déassemblage de la fonction " LANGUAGE SIGNATURE 0. "(CONST " ") = "
" required arguments" " notwendige Argumente" " arguments nécessaires"
" optional arguments" " optionale Argumente" " arguments facultatifs"
"Rest parameter" "Rest-Parameter vorhanden" "Paramètre &REST"
"No rest parameter" "Kein Rest-Parameter" "Pas de paramètre &REST"
ENGLISH DEUTSCH FRANCAIS
#S(HASH-TABLE EQ (FRANCAIS . 44.) (ENGLISH . 15.) (DEUTSCH . 1.))
" Keyword-Parameter: " " keyword parameter" 1. "s" ": " " mot" "s" "-clé"
"." ", " "Other keywords are allowed." "Andere Keywords sind zugelassen."
"D'autres mots-clé sont permis." "No keyword parameters"
"Keine Keyword-Parameter" "Pas de mot-clé" 35. WRITE-TO-SHORT-STRING
DISASSEMBLE-LAP 6. #\Space COMMENT-VALUES 42. "; " STRING
) )
#Y(#:TOP-LEVEL-FORM-305 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DISASSEMBLE REMOVE-OLD-DEFINITIONS
#Y(DISASSEMBLE
#114Y(00 01 00 00 00 02 AB 88 00 12 AB 8C 53 80 45 AB 2E 07 F7 14 E0 37
01 8E 84 80 46 F7 9C 1F 07 93 01 24 09 02 82 01 AB 8E 0C 3D AB 8D
0B 20 AB E6 71 2E AC E7 71 2E AD E8 71 2E AE E9 71 2E AF EA 71 2E
B0 EB 71 2E B1 EC 71 2E 2C 07 15 F7 AB 2E 16 9C 19 02 D9 DA AD DB
DC DD 6D 03 06 AF 32 03 1F 9C 5D F7 1A FF B5 E2 E3 E4 E5 6D 03 06
AD 32 01 1F
)
FUNCTION-NAME-P UNDEFINED-FUNCTION :NAME "Undefined function ~S"
"Funktion ~S ist undefiniert." "Fonction non-définie ~S" LANGUAGE
GET-FUNNAME-SYMBOL TRACED-DEFINITION MACRO ERROR "Cannot disassemble ~S"
"~S kann nicht disassembliert werden." "Impossible de déassembler ~S" 0.
1. 4. 5. 6. 7. 8. COMPILE-LAMBDA DISASSEMBLE-CLOSURE
) )
